






Une nouvelle force pour votre 
PC 1500 avec LOGI' STICK. 


FAST LO AD MONiTOR 

Routine entièrement en langage machine (600 octets) 
permettant la sauvegarde et la lecture de programmes 
basic ou L.M. et variables dimensionnées. 

Spécifications : 

Vitesse de chargement 13 fois supérieure à la normale 
(environ 4 000 Baud). 

Routine entièrement relocalisable. 

Utilisable sur toute les versions du PC-1500 


GESTION DE FICHIERS 

Programme ULTRA PUISSANT de gestion de tous les 
fichiers. Langage machine et basic. 

Spécifications : 

Nombre de rubriques totalement libre. 

Insertion, suppression, ajout, correction sur rubrique 
ou leur contenu ou sur fiche entière. 

Recherche sur tout ou partie du contenu d’une 
rubrique. 

Recherche sur rubrique. 

Tri numérique ou alphanumérique sur rubriques. 
Impression totale ou partielle des fiches. 

Sauvegarde des fichiers sur cassette. 

Possibilité de travailler sur trois fichiers distincts en 
simultanée. 

Livré en version 8 Ko et 16 Ko. 




SUPER GRAPHE 

Logiciel de représentations statistiques sur CE-150. 
Spécifications : 

Impression quatre couleurs des graphiques suivants : 
Histogrammes 2D et 3D, cercles statistiques, graphe à 
points et à lignes. 

Rentrée des données entièrement paramétrable (de 1 à 
20 groupes de 1 à 40 données). 

Correction de toutes les entrées. 

Résultats statistiques (moyenne, écart type, variance...) 
Listage des données par groupe. 

Protection des données par mot de passe. 

Sauvegarde et lecture des données sur cassette. 
Utilisable sur toute version + 4 Ko minimum. 


CALC 

Tableur professionnel avec représentations graphiques 
incorporées (PLOT). 

Spécifications : 

Travail en numérique ou alphanumérique sur deux 
tableaux superposés. 

Transposition de case sur colonne ou sur ligne. 
Interpréteur intégré pour analyse d’équations. 
Impression des tableaux. 

Déplacement sur tableaux par curseur ou 
inconditionnel. 

Impression graphiques en histogrammes, cercles 
statistique ou graphe à lignes. 




I PUISSANCE IV 

Super programme de Puissance 4 entièrement en 
langage machine. 

Tracé de la grille en quatre couleurs. 

Temps de réponse par coup : Environ 15 secondes. 
Utilisable sur version de base + 4 Ko ou 8 Ko. 


JEUX 1 et 2 

7 jeux vidéo en haute résolution. 


.-;;i_ 


JEUX 3 

3 gros jeux : OTHELLO 6/6, 8/8, MORPION ET DAME 




JEUX 4 

6 Super jeux de cartes ou des dés tels que : Black- 
Jack, Poker, Jack -Pot... 



JEUX 5 

6 Super jeux de réflexion tels que : Logi’suite, Awalé, 
Master brain... 

JEUX 1 et 2 sont utilisables sur PC-1500 version de base. 
JEUX 3,4,5 nécessite au moins une extension 4 Ko sup- 
plémentaire. 


LOGI/STICK 


,, votre revendeur 

I Tous ces logiciels “par corresponde S 

Sharp et dans les EN PARIS NORD, 

D.DJ. Ce "*JL?1«Ï53 LE BLANC 

« Le Bonaparte » 9 

MESNIL. 


OTHELLO 6/6 et 8/8 

Programme en langage machine. 

5 niveaux de jeu. 

Temps de réponse maximum : 5 secondes. 
Opposé au programme champion du monde le 
programme LOGI’STICK a triomphé par 32 à 4. 
Utilisable sur version de base + 4 Ko ou 8 Ko. 










LOGI’STICK se réserve le droit de faire toute modification sur les caractéristiques annoncées et cela sans préavis. 

Les logiciels sont livrés sur cassettes avec notice d’utilisation détaillée. 

* 



LOGPSTICK LE NUMÉRO^ DU LOGICIEL DE POCHE 


6614647 
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Promesse tenue ! je vous avais annoncé ce 
bulletin pour le mois de mai, il s'agissait d'un 
pari, et nous l'avons gagné. Pourquoi ? Com- 
ment ? Revenons à la case départ... Je vais 
tout vous expliquer. 

A l'origine, début 1981 (La nuit des Temps...), 
quelques passionnés de PC 1211 désireux de 
partager leur savoir se réunissent régulière- 
ment dans les locaux de la Société S.B.M. 6 
mois plus tard, un millier de possesseurs de 
PC correspondent par courrier avec cette 
petite équipe. A ce moment, la création d'un 
club reconnu et structuré devient évidente, 
elle est matérialisée en décembre 1981 par 
la parution du 1 er bulletin : 8 pages en OFF- 
SET ; Timide essai qu'un courrier enthou- 
siaste récompensera immédiatement. Le Bul- 
letin N° 2 salue l'arrivée des MZistes (dont 
votre serviteur), le club compte alors 1 500 
membres environ, il est totalement financé 
par la Sté. S.B.M. Depuis 6 nouveaux bulle- 
tins sont parus et nous sommes maintenant 
presque 7 000 SHARPENTIERS. 

Pourquoi le nier, l'organisation du club n'a pas 
toujours bien suivi la croissance considéra- 
ble du nombre de ses adhérents, provoquant 
ainsi le mécontentement de bon nombre d'en- 
tre eux qui devaient attendre, parfois plusieurs 
semaines, une réponse à leur demande ceci, 
malgré le travail considérable fourni par Luc 
BURELLER et ses SHARPENTIERS bénévoles. 
Il fallait rapidement trouver une solution à ces 
difficultés. Le club, devenu une véritable Mini 
entreprise au sein de la Société S.B.M. devait 
être géré, animé, dirigé, comme telle. Ces 
fonctions m'ont été proposées, je les ai accep- 
tées immédiatement avec plaisir, passionné 
de micro informatique depuis 10 ans, par les 
produits SHARP MZ et PC depuis leurs nais- 
sances, « vétéran » du club, je serai donc, 
dorénavant votre interlocuteur direct et per- 
manent dans tous vos contacts avec le club ; 
assisté en cela par l'équipe des SHARPEN- 
TIERS présente tous les mercredis. 

Premiers effets de cette restructuration (le 
mot est à la mode) : 

Ce bulletin : que vous recevez, comme pro- 
mis, 6 semaines après le N 0 7. - Que tous 
les SHARPENTIERS qui ont collaboré à sa réa- 
lisation « EXPRESS » soient ici remerciés. Les 
nombreux problèmes connus et expliqués 
dans le N° 7 sont maintenant oubliés puis- 



que les différentes étapes de sa fabrication, 
depuis la rédaction des articles jusqu'à son 
arrivée dans votre boîte à lettres sont direc- 
tement supervisées et coordonnées par le 
Club. Il est actuellement trimestriel (N° 9 le 
15/09, N° 10 le 15/12) et pourquoi pas... 
bimestriel en 1985. 

Le courrier : A ce jour, le retard est entière- 
ment résorbé, et il sera, à l'avenir, répondu à 
tout courrier reçu au club sous 20 jours maxi- 
mum. Si malgré nos efforts, votre lettre était 
restée sans réponse, veuillez nous le faire 
savoir, nous y répondrons immédiatement. 
Le téléphone : Vous pouvez nous appeler tous 
les jours, de 9 h à 13 h. - Evitez, dorénavant 
si possible, le mercredi après-midi, période 
d'intense activité pour les Sharpentiers qui 
nous rendent visite. 

Les réunions : Encore du nouveau et des 
efforts accomplis pour mieux vous acceuil- 
lir : nouvelle salle plus spacieuse, plus claire, 
mieux équipée. Nouveaux horaires du mer- 
credi : 10 h - 13 h, - 14 h - 18 h. Cette 
salle et son matériel peuvent également être 
mis individuellement à la disposition de cha- 
cun à tout moment de la semaine à condition 
d'en faire la demande quelques jours à 
l'avance. 

Les clubs régionaux : Suite à notre enquête 
du N° 5, une dizaine de réponses nous sont 
parvenues concernant la création d'antennes 
régionales du club, chacune de ces proposi- 
tions va être étudiée avec le plus grand soin 
et je prendrai contact directement avec toute 
personne désirant créer un club Sharpentier 
régional pour que, dès la rentrée une vérita- 
ble politique de décentralisation soit mise en 
œuvre et que, -chaque Sharpentier puisse 
trouver, proche de son domicile, une émana- 
tion locale du club. 

Vous le constatez le club bouge, évolue, et 
doit progresser encore pour répondre mieux 
à votre attente ; dans ce but nous avons 
besoin, plus que jamais, de votre active par- 
ticipation. Toutes vos suggestions, critiques 
et idées originales seront prises en compte 
pour que le club des SHARPENTIERS soit le 
reflet idéal des désirs et besoins de ses 
adhérents. 

Assez écrit!... Tournez la page, et rendez vous 
au 15 septembre. 

Sylvain BIZOIRRE 




Nouveau salon, nouveaux produits, la grande 
famille des PC s'agrandit. 

En effet, le PC -1401, le pocket scientifique, est 
désormais disponible sur le marché français. 
Cet ordinateur de poche tant attendu par les 
étudiants complète notre gamme en faisant le 
lien entre l'ordinateur de poche et la calcula- 
trice scientifique Le basic de ce produit pré- 
sente les mêmes caractéristiques que celui du 
PC-1251, mais il possède en plus des fonctions 
scientifiques : trigonomètriques, hyperboliques, 
statistiques,, de conversion polaire rectangu- 
laire, hexadécimale décimale, racine cubique... 

Ces fonctions utilisables directement sous 
basic peuvent être utilisées dans un mode cal- 
culatrice Dans ce mode votre PC se comporte 
alors comme une EL506H. 

Avec ses 3534 octets de mémoire utilisateurs 
il n'est de problèmes que vous ne pourez 
résoudre ! 

Sur ce PC vous pouvez utiliser des interfaces 
CE-124 (interface cassette), et CE-126P (inter- 
face cassette/imprimante). 

Fiche signalétique 
Nom : PC -1401 

Afficheur : 16 caractères X 1 ligne 

Mémoire : 3 534 octets 

Caractéristique : fonctions scientifiques et 

statistiques 

Interface : CE-124, CE-126P 




La nouveauté du salon la PC -1261. 
Apparamment identique au PC-1251 ce petit 
dernier présente des caractéristiques intéres- 
santes qui en font un pocket d'une nouvelle 
génération. 

Commençons par l'afficheur : il s'agrandit, en 
effet, ce produit est équipé d'un afficheur de 
deux lignes de 24 caractères. La mémoire aussi 
augmente : elle est de 9342 octets utilisateurs. 
Les modifications apportées aux précédents 
PC-12xx ne s'arrêtent pas là. En plus du basic 
deux programmes originaux sont intégrés à la 
machine : 

• un tableur, il s'agit d'un programme qui sai- 
sit des fonctions et qui permet de les résou- 
dre en vous demandant automatiquement tous 
les éléments qui lui sont nécessaires pour 
effectuer le calcul demandé. 

exemple: en introduisant # Prix = 
PUHT+PUHT*TVA/100 la machine vous 
demandera en le présentant sous la forme d'un 
tableau le PU HT et la TVA. 

• Une fonction HELP qui vous permettra de 
connaître en clair les erreurs que vous aurez 
faites, et surtout vous permettra de connaître 
à tout instant la syntaxe d'un mot basic et de 
visionner le tableau des codes ASCII. 

Ce produit ouvre une nouvelle ère dans les 
pockets, celle des machines à programmes 
intégrés. 

Fiche signalétique 
Nom : PC -1261 

Afficheur : 24 caractères X 2 lignes 

Mémoire : 9 342 octets 

Caractérisques : Tableur intégré et fonction 

HELP 

Interfaces : CE-124, CE-125, CE-126P. 

Troisième et dernière noveauté le PC-1 260. Il 
s'agit d'un PC-1261 avec 3198 octets 
utilisateur. 




Tiens bizarre des floppies connectés sur une 
imprimante. Regardons cela d'un peu plus 
près. 

Sur le dessus de ce petit ensemble est ins- 
crit le nom de PC-5000, apparemment il 
devrait s'agir d'un ordinateur. En regardant 
sur le côté on peut remarquer deux petits 
boutons. Poussons les et... Oh merveille l'or- 
dinateur parut ! 

Apparut alors à nos yeux un vrai clavier de 
type AZERTY surmonté de nombreuses tou- 
ches de fonction et un afficheur à cristaux 
liquides de 8 lignes de 80 colonnes. 

Nous étions alors qu'au début de nos 
découvertes. 

Le PC 5000 est véritablement ce que l'on 
peut appeler un ordinateur portable : 

De faible dimensions, d'un poids minime 5,6 
Kg et une puissance inversement proportion- 
nelle à sa taille : 128 Ko de mémoire en ver- 
sion de base. On se demande alors pourquoi 
acheter un ordinateur d'une taille plus con- 
séquente. Ce produit autonome (pendant 8 
heures grâce à une batterie) utilise comme 
mémoire de masse des cartouches de 
mémoire à bulle. 

Ces cartouches s'utilisent exactement 
comme des disquettes et présentent de 
nombreux 

avantages 

• un format petit et compact 

• un accès très rapide 

• une meilleure sécurité dans la sauvegarde 
des programmes (fiabilité,...) 

• une capacité de stockage de 128 Ko 

Toujours intégrée au PC de SHARP on trouve 
une imprimante 80 colonnes graphique dont 
les caractères sont dignes d'une imprimante 
qualité courrier (la matrice de caractères est 
de 12x20). 

Cette imprimante, thermique, peut néan- 
moins accepter du papier normal en lui ajou- 
tant une cassette ruban carbonné, le 
système alors employé est le transfert ther- 
mique. Derrière le PC on trouve différentes 
entrées sorties. De gauche à droite : 

• la prise du chargeur adpatateur de courant 


& 



• des prises Jack 3.5 pour la connection 
d'un magnétophone comme mémoire de 
masse. 

• un sortie bus 

• une RS-232C 

• une sortie série SHARP pour le pavé 
numérique. 

Dessous il y a 2 emplacements dans lesquels 
pourront être installés des extensions 
mémoire 64 Ko (le PC fait 128 Ko en version 
de base et peut être étendu à 256 Ko), ou 
des modules préprogrammés. 

Mais revenons à la machine elle-même et 
mettons là en marche, pour cela il nous faut 
installer une mémoire à bulle dans son loge- 
ment puis tourner le commutateur sur ON. 

Au bout de quelques secondes la machine 
vous demande la date et l'heure, ou de con- 
firmer l'exactitude de celles qu'il indique. 
Tout les langages existant sous MS/DOS, 
pourront être utilisés. Vous pourrez très bien 
ne pas vous limiter à l'interpréteur BASIC, qui 
vous est fourni. 



Grâce au PC-5 000, vous pourrez enfin faire 
du C dans le métro, du FORTRAN dans le 
bus, du COBOL en voiture, et du PASCAL à 
cheval. 

De nombreux logiciels pourront tourner sur 
celui-ci, (souvent après une adaptation au 
format 8 lignes, les bons softs ont un pro- 
gramme d'installation). 

Comme nous l'avons vu au début, on peut 
connecter sur le PC, des floppies 5" qui uti- 
lisent le même format que l'IBM PC, par con- 
séquent, vous pourrez relire des fichiers 
générés sur cet ordinateur. 

De même les programmes écrits sur le 
PC-5 000, tourneront sans môdifications sur 
le GW BASIC de l'IBM. Chargeons le BASIC, 
sous notre PC configuré en 256 Ko RAM, 
nous avons alors 61 337 octets utilisateur. 
Le BASIC, permet d'exploiter pleinement les 


possibilités de l'écran (80 x 640 points), et 
les possibilités sonores en PC-5 000 
(SOUND, BEEP, PLAY). Lorsqu'il sortira (le 
mois prochain), le PC-5 000 sera équipé d'un 
clavier AZERTY. Au moment ou ce numéro 
va être maquetté la liste des logiciels n'est 
pas encore arrêtée, elle vous sera indiquée 
sur le stand SHARP du SPECIAL SICOB. 


Voici en résumé les principales caractéristi- 
ques du PC-5 000, et le nom de ces 
périphériques. 

PC-5000F Ordinateur CPU 16 bits 8088, 
mémoire 128 Ko extensible 
à 256 Ko 

C E - 5 1 0 P Imprimante 80 colonnes 
(38 CPS) 

CÈ-510F Floppy 5" format IMB PC 
simple face 160 Ko et dou- 
ble face 360 Ko 40 pistes 
par face 8 ou 9 secteurs par 
piste 512 octets par secteur. 
C E - 5 1 0 K Pavé numérique 
CE-100BF Mémoire à bulle de 128 Ko 
CE-100M Extension mémoire de 64 Ko 
CE-101FA Disque système MS/DOS 



ASSEMBLEE GENERALE 1984 

LASSEMBLEE GENERALE de LASSOCIATION « CLUB DES SHARPENTIERS » 
se tiendra le MERCREDI 30 MAI 1984 à 9 heures au siège du Club. 

Y sont invités tous les membres en règle de cotisation (réglée après le 1.06.83.) 

A l'ordre du jour : 

BILAN D'ACTIVITE 1983/84 / PROJETS / ELECTIONS DU BUREAU. 

SBM - CLUB DES SHARPENTIERS - 151-153 AVENUE JEAN JAURES - 93307 AUBERVILLIERS 
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1500 K 1251 






PU 1251 

également utilisable 
pour PC 1245 et PC 1401 


Disponibles en exclusivité au club des Sharpentiers, vous 
pouvez vous procurer ces 2 manuels soit par correspon- 
dance au prix de 167,40 F. l'un (port compris) soit direc- 
tement au club, le mercredi après-midi (exclusivement) 
au prix de 1 50 F. 


Ces manuels, en anglais très bien documentés, sont des 
ouvrages de référence et n'abordent par l'initiation au lan- 
gage machine. 






CHAMPIONNAT D'EUROPE 
D'OTHELLO BRUXELLES 1984 


CATEGORIE POCKET (Grille 6x6) 

1 er CAMUS (KOMBAR) 

SHARP PC-1500 L.M 

2 e CESSELIN 

SHARP PC-1500 BASIC 

3 e ROELTGEN 

CASIO PB 700 BASIC 

4 e KOMBAR 

SHARP PC-1500 BASIC 


Belle victoire pour nos PC et les SHARPENTIERS. 

A cette occasion la société SBM avait tenu à récompenser le tandem gagnant, 
c'est lors de la sympatique réunion qui accompagnait la remise des prix (2 modu- 
les mémoire 16 K CE 161 et 2 interfaces RS-232 CE-158) que nous avons pu inter- 
roger Christophe CAMUS et Wael KOMBAR, les deux concepteurs du programme 
gagnant. 


LE SHARPENTIER : 

- Quand avez vous commencé à program- 
mer OTHELLO sur votre PC ? 

C. CAMUS : 

- Wael a commencé en 1981 et a présenté 
son premier programme au tournoi du Sicob 

1982 sur PC -1211 résultat encourageant 
puisqu'il a gagné dans la catégorie POC- 
KETS. J'ai commencé, pour ma part au Sicob 

1983 avec mon premier programme en L.M 
sur PC -1500. Malheureusement ; des modi- 


fications de dernière minute à mon pro- 
gramme m'ont relégué à la queue du peloton. 

L.S. : 

- Comment avez vous conçu votre pro- 
gramme vainqueur ? 

C.C. : 

- Cette victoire est véritablement le fruit 
d'un travail commun Wael a conçu un excel- 
lent programme BASIC capable d'anticiper 


sur 5 1/2 coups, ce programme a d'ailleurs 
été également présenté au Tournoi, le plus 
gros travail a été de le transformer en lan- 
gage machine et d'y ajouter des formules 
récursives. 

Plusieurs améliorations successives leur per- 
mettent maintenant de « voir » 9 1/2 coups 
à l'avance et d'annoncer le résultat final de 
la partie 5 tours avant la fin, cela a en géné- 
ral un effet très démoralisant pour l'adver- 
saire humain mais, malheureusement, aucun 
effet sur les machines adverses. Il faut pré- 
ciser, qu'à notre connaissance, ce pro- 
gramme est le seul implanté dans un POC- 
KET à pouvoir battre un bon joueur humain. 
Nous avons encore en mémoire un match 
épique contre LUC BURELLER ou notre PC 
lui annonce, à 5 tours avant la fin « je gagne 
par 22/14 ». 

Depuis ce jour, Luc ne joue plus jamais à 
OTHELLO... 


L.S. : 

- Les meilleurs programmes Européens 
étant présents avez vous eu de grosses dif- 
ficultés à obtenir la première place ? 

W. KOMBAR : 

- Nous avons eu le gros handicap, dès la 
première ronde, de devoir jouer l'un contre 
l'autre, il fallait un vainqueur, Christophe a 
gagné de peu (19/17), les victoires suivan- 
tes de notre programme L.M furent ensuite 
très nettes 35/1 contre CESSELIN, 31/1 con- 
tre BOISSE (le 6 e du classement) et 35/1 
contre RÔELTGEN, 2 parties hors concours 
furent ensuite disputées ou nous avons 
gagné 22/4 contre BOISSE et 32/4 contre 
WEYN, autre programme du L.M sur 
PC -1500. 

L.S. : 

- Et l'avenir ? 

W.K. : 

- L'avenir immédiat, c'est bien sûr le Tour- 
noi du SICOB de Septembre. Nous tenons à 
remercier à cette occasion la société IBM, 
qui nous fournit, grâce à ces récompenses 
les moyens techniques de faire évoluer notre 
programme, et de nous permettre ainsi de 
présenter un programme encore plus puis- 
sant à ce Tournoi. Quand à l'avenir plus loin- 
tain, pourquoi pas un Championnat du 
monde d'Othello ? 


OTHELLO / PARTIE : 
CAMUS (1«) contre 
CESSELIN (2 e ) 


CESSELIN CAMUS 


Cette partie est représentative pour 2 
raisons : 

• parce que c'est le match supposé être du 
meilleur niveau 

(Le Champion rencontre le Vice champion) 
(Le premier rencontre le deuxième) 

• parce que, aussi, il met bien en valeur les 
forces du programme gagnant. 

Commençons donc la partie : Au tirage CES- 
SELIN obtient de commencer, donc avec 
noir. 


D2 

E4 

Début de partie assez classique. Cependant, 2 « écoles » s'affrontent. Certains affirment 
que D5 est beaucoup plus dangereux que C5... Aucune des deux solutions ne donne la vic- 
toire à 

D5 

C6 

coup sûr,... donc, à chacun son avis. 

B4 

A4 

On peut également s'étonner de B4 : (plutôt de F4), cela permet à Blanc de s'installer en A4. . . 
Mais cela n'a pas beaucoup d'importance en début de partie. 

D6 


Rien d'autre de correct à faire. 


B5 


E3 


F3 


E6 


DI 


F4 


F2 


B3 


Acquiert le bord : (Certains contestent car elle pourrait permettre le gambit dans le futur, 
(mais permet de prendre DI). 


lololof 


O 0 0 0 


oloiolo 


Position actuelle 
Blanc prend le coin A6 

i 

Noir s'insère 


□□□□□□ 


Et fait le gambit 


Bizarre ! Cela semble pourtant une case faible, d'autant plus que C4 et B3 sont facilement 
retournable pour la prise du coin I) 


Comme prévu, Blanc prend d'assau le bord inférieur, et de plus, met le coin en danger : 
Noir doit passer en défense. 

Seul coup qui sauve momentanément le coin car E2, même s'il le savait dans l'immédiat, 
condamne à long terme 2 coins (Fl et A6). 


6 
5 
4 
3 
2 
1 

ABCDEF 
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Un programme classique essaierait certainement de bri- 
ser de nouveau la ligne lui assurant un coin en jouant 
C2 ou B3. Cependant, cela se révèle inutile, car le jeu 
est encore assez ouvert, et Noir a toujours un coup per- 
mettant de parer cette attaque. Blanc attend donc que 
le jeu se bloque pour attaquer les coins, et joue F4, pré- 
férant ainsi s'étendre sur les bords. 


Coup sans grand intérêt, Noir n'a pas grand chose à jouer, et F3 apparaît comme le moins 
utile et le moins dangereux. 


Double intérêt de ce coup : peut d'abord s'étendre sur les bords, mais surtout empêcher 
Noir de jouer en F5, le coup suivant. 

Noir est ainsi de plus en plus bloqué, et doit jouer des coups de plus en plus dangereux. 


Seul coup non catastrophique. Un E5 permettrait en effet une réponse C5 de blanc, (en lui 
assurant pratiquement 3 coins et 2 bords). 


r 



B2 est apparemment bizarre. Pourquoi ne pas jouer A3 ? 
Ce coup, B2 est cependant très judicieux : 


1 ) Il bloque l'adversaire qui perd tout contrôle sur le 
centre. 


2) Jouer A3 ouvrait : 

• la voie du coin A6 si Noir ne paraît pas l'attaque 

• soit les 2 coins AC et F 1 si Noir paraît. Mais A6 est 
un mauvais coin car il ouvre le gambit et blanc perd B6, 
C6, D6, E6, F6 (voir plus haut). 

F5 donne un coin donc C2 reste le seul coup jouable. Il semble donner quelques derniers 
espoirs à Noir en menaçant le coin. Mais la parade est facile, (voici, là encore, une autre 
raison d'avoir joué B2 I) 

D'une pierre 2 coups : A3 enlève la menace sur Al et ouvre la voie des coins A6 et Fl. 

On peut s'étonner de ce coup (je me rappelle la réaction de M. CESSELIN, qui a affirmé que 
ce coup provenait d'une vague de coups apparemment incompréhensibles que produisait 
parfois son programme : qu'il se rassure le coup était le bon. En effet, E2 sauvait momenta- 
nément A6, mais en répondant C5, Blanc s'assurait les 2 coins A6 et F4. 

Coup évident, pour ne pas perdre la rangée Fl à F6. 

Seul coup qui ne donne pas immédiatement un coin. La position est d'ores et déjà désespé- 
rée pour Noir. 

Ce coup est apparemment inutile ! Pourquoi ne pas jouer 
C 5 permet aux noirs de répondre E 5 puis A 1 ! De même 
essayer de retourner D3 pour avoir les coins A et A6 
permet aux Noirs de jouer Cl puis Al. 

Cl est donc très judicieux, d'autant plus que Noir n'a 
rien de bon à jouer 

A2, B1 et El, sont tous aussi mauvais. Ils donnent un coin immédiatemment. 

Prise du coin évidente. 
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ABCDEF 


L'autre coup possible était E 1 , qui donnait immédiatement un coin. Noir joue donc A2. (Ce 
n'est pas très bon non plus, car Noir sera rapidement contraint de jouer A5 et de perdre 
tout le bord gauche. 

Blanc peut entammer son « rouleau compresseur »... plus aucune gêne. 

Comme prévu, Noir donne la rangée. L'autre solution, pas meilleure, était de jouer El en 
donnant le coin Fl... Position désespérée. 


Le balayage commence. 


Il ne reste plus que des coups catastrophiques. 
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Le succès remporte par nos prece- 
dentes « affaires Club » nous a 
conduit à vous offrir une gamme 
de produits plus diversifiée, à des 
jours très intéressants. 


Pour PC-1 500 


26 CE-160 


Prix spécial 
Club T.T.C 


Module mémoire 8K 
mémoire morte que vous 
pouffez programmer au club. Nous 
mettrons gracieusement à votre 
disposition notre programmateur de 


Pour MZ-80A 


31 MZ-80 AFI 
47MZ-80 AMD 
13MZ-8AD02 


Pour MZ-80B 

122 MZ-80 MDB 
6MZ-80 DPB 

21 MZ-8BI03 
14 MZ-8B104 
15MZ-8BT04 
20MZ-80T41 


Interface Floppy disques 

Master disquette 

FDOS : ensemble de logiciels sur 

disquette pour programmer en 

assembleur 


Master disquette 

BASIC disquette double précision 

(SB6610) 

Carte interface RS-232 + cable 
Carte interface IEEE + cable 
Cassettes + Notice Assembleur 
Cassettes PASCAL 


QUANT. 


DESIGNATION 






PROBLEME DE ROBINEIS 


Je suis attaché de direction à l'exportation, 
d'une société étrangère fabriquant des arti- 
cles sanitaires. Mon secteur d'activité s'étend 
sur plusieurs pays Européens et africains. 
Comme tout collaborateur commercial itiné- 
rant, mon souci a toujours été de pouvoir 
gérer à tout moment et en tous lieux, mon 
portefeuille de clients, et de pouvoir rendre 
compte régulièrement de mes activités à 
mon employeur. Durant plusieurs années j'ai 
dû faire ce travail manuellement, c'était long, 
fastidieux et quelquefois, source d'erreurs. 

L'arrivée du PC-1 500 dans ma vie profession- 
nelle n'a pas provoqué dans un premier 
temps la révolution que j'espérais, aucun pro- 
gramme commercialisé ne correspondait 
réellement à mes besoins. J'ai donc du 
d'abord me familiariser avec mon 1 500 et 
son langage, et créer, moi même, mes pro- 
pres logiciels d'application. Cela ne s'est pas 
fait du jour au lendemain, il m'aura fallu plus 
d'une année pour aboutir au résultat actuel, 
aidé en cela, très efficacement, par les 
SHARPENTIERS. 

Ma malette (1) où sont logés mon PC 1 500, 
mon imprimante, l'interface RS-232 et tous 
leurs accessoires ne me quitte plus jamais 
et accomplit quotidiennement toutes les 
tâches quotidiennes et répétitives de 
gestion. 

En quoi consistent cas travaux : 

Fichier clients : il me permet une mise à jour 
très rapide, il peut éditer des étiquettes pour 
l'envoi de circulaires ou de factures, il com- 
porte un répertoire téléphonique immédiate- 
ment accessible. 

Fichier articles : ou les 240 produits que je 
commercialise sont référencés avec leurs 
tarifs, et peuvent être également mis à jour 
très rapidement. 

Facturation et création de tarifs sur impri- 
mante, libellé de factures personnalisées. 
Traitement de textes pour l'élaboration de 
rapports à la société mère et la création de 
circulaires clientèle, ces circulaires, ainsi que 




les factures peuvent être éditées et person- 
nalisées sur une imprimante 80 colonnes via 
l'interface RS-232C. 

Gestion de comptabilité mensuelle compor- 
tant résultats d'activité, statistiques, compa- 
ratifs, prévisions et répartition de ventes. 

Programme de représentation graphique 

sous différentes formes, de mes résultats 
d'activités. 

Note de frais qui permet une présentation 
précise et claire des frais réels, frais kilomé- 
triques et frais mobiles. 

Paye : étant rémunéré par une société étran- 
gère, ce programme crée mon propre bulle- 
tin de salaire mensuel, y incorporant les char- 
ges sociales qui peuvent être constamment 
mises à jour. 

Cet ensemble de logiciels couvre actuelle- 
ment tous mes domaines d'activité, le temps 
important passé à les concevoir est mainte- 
nant largement compensé par la rapidité, la 
sécurité, et la clarté des résultats obtenus. 
Cette rapidité de traitement me permet de 
consacrer plus de temps à mes clients et à 
mes loisirs. 

Mes clients, mon employeur et moi-même, 
étant maintenant habitués au travail fourni 
par le PC, il est, dès lors, devenu un outil 
indispensable et ne me quitte plus jamais 
dans mes déplacements professionnels. 

Si vous avez ou désirez créer une application 
similaire, je reste à votre disposition dans la 
mesure de mes possibilités et par l'intermé- 
diaire du CLUB, pour vous faire profiter de 
mon acquis dans ce domaine, ou confron- 
ter nos expériences en vue d'optimiser nos 
applications respectives. 

Georges VERDIERE 

(1) voir Sharpentier n° 6 
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L'utilisation de cet éditeur est très simple : 
t I pour se déplacer dans le 
tableau des données 



L'EVALUATEUR DU N 1500 

Chers(es) SHARPENTIERS, après l'« INPUT » me revoilà à nouveau pour vous ini- 
tier au BA BA (entendez par là : BASIC ASTUCIEUX). Mais tout d'abord, je tiens 
a justifier ce type d'article aux fanatiques du langage-machine. En effet, je pense 
que la plupart des SHARPENTIERS se heurtent aux difficultés du LM alors que 
parfois il est possible de faire aussi bien en BASIC (du point de vue compacité 
et rapidité) et cela beaucoup plus facilement. 


Nous allons aujourd'hui exploiter les possi- 
bilités d'évaluation du PC-1 500. L'évaluateur 
se charge de calculer toutes les expressions 
algébriques ou alphabétiques avant d'en 
transférer le résultat, en tant qu'argument, 
aux fonctions du BASIC. 

PAR EXEMPLE : GOTO LEFT$ 

(« PASCAL », 2) + « A » est tout à fait 
accepté par le PC-1 500 et conduit au bran- 
chement à l'étiquette « PAA ». En fait, là ou 
la plupart des BASICS n'acceptent qu'un 


nombre ou une chaîne alphabétique, le 
PC-1 500 accepte n'importe quelle expres- 
sion alphanumérique. Ceci est valable pour 
toutes les fonctions du BASIC sauf OPN. 
Essayez par exemple d'introduire une expres- 
sion dans une ligne de DATA'S. Personnelle- 
ment j'utilise surtout cette possibilité du 
1 500 pour l'adressage indirect, et en parti- 
culier un « GOSUBINKEYS ». 

Mais voyons cela sur un petit exemple, le pro- 
gramme qui suit est un mini éditeur de don- 
nées, simple et rapide : 




ESPACE 


pour entrer une nouvelle valeur 


CL | pour sortir de l'éditeur 


Le fonctionnement de ce programme s'expli- 
que par le diagramme suivant : 


110 " m ': 

r* AFFICHE DONNEE 



120” " 

r GOTO INKEY$ 

130 

— 1 r 

à 

r EXECUTE 1 

137 

__r 


(il 

( 2 ) 

(3) 


(1) si aucune touche n'est pressée on bou- 
che sur la ligne 120 (label vide) 

(2) une touche est pressée mais le label cor- 
respondant n'existe pas on passe à la ligne 
110 (on error). 

(3) le label existe, on exécute les instructions 
correspondantes, puis le « : » génère une 
erreur, on retourne en ligne 110. 


Pour rentrer les labels spéciaux, voilà com- 
ment s'y prendre : 


• en mode réserve, « NEW » puis assigner 
à Fl lu lettre « A » puis à F2 : « POKE 



LANGAGE MACHINE 


RAPPEL 

Rappelons tout d'abord les registres du 
microprocesseur, que nous avous vu la der- 
nière fois : 


XH 

XL 


YH 

YL 


UH 

UL 



A 




P 


S 


Registre X 16 bits 
Registre Y 1 6 bits 
Registre Z 8 bits 
Accumulateur 8 bits 
Compteur original 16 bits 
Pointeur de pile 16 bits 


I/1/1/1 H| V|Z| 1 1 C 


Registre T, 
des drapeaux 8 bits 

Un registre 8 bits (un octet) peut contenir 
une valeur de 0 à 255 
Un registre 1 6 bits (2 octets) peut contenir 
une valeur de 0 à 65535 

LES OUTILS DU LM 

Le BASIC du PC 1 500 possède différentes 
instructions qui donnent accès au langage 
machine à partir du BASIC, ce sont ces ins- 
tructions qui nous donnent accès au LM. 
Tout d'abord, imaginez la mémoire de votre 
ordinateur comme une suite de cases numé- 
rotées, le numéro d'une case est l'ADRESSE 
de celle-ci. 


Ces cases prennent le nom rébarbatif d'OC- 
TET et peuvent contenir une valeur allant de 
0à 255. La mémoire du PC-1 500 se com- 
pose de 2 suites de 65 536 octets, de DEUX 
PAGES, mais seule la 1 ere d'entre-elles nous 
intéresse. 

L'instruction : PEEK permet de lire la valeur 
d'un octet dans la 1 ere page (PEEK # pour 
la deuxième page), par exemple PEEK 60000 
donne 1 98. Cela signifie que l'octet qui a 
pour adresse 60000 contient la valeur 1 98. 

L'instruction : POKE permet d'écrire une 
valeur dans un octet de la 1 ere page (POKE # 
pour la seconde page). Par exemple POKE 
& 78C0, &FF inscrit la valeur 255 à l'adresse 
30912. 

L'instruction : CALL quand à elle permet 
d'exécuter un programme LM. 

Sa syntaxe est : CALL adresse ou 

CALL adresse, variable 
numérique ou 
CALL adresse, variable 
alphabétique. 










Lors d'un CALL avec variable, si celle-ci est 
numérique (contient un nombre entre 32768 
et 32767) le registre X du processeur con- 
tient cette valeur. Si la variable est alpha- 
bétique, l'adresse de la chaîne qui lui cor- 
respond est dans X et la longueur dans l'ac- 
cumulateur. Lors du retour au BASIC si le 
CARRY est à 1, le nombre (X) ou la chaîne 
(X,A) est transférée à la variable. 

Les instructions : CSAVEM et CLOADM per- 
mettent respectivement la sauvegarde et la 
lecture de programme LM, leurs syntaxes 
sont : CSAVE M (« « nom » ;) adresse d'en- 
trée, adresse de fin (adresse d'exécution) 
CLOAND M (« nom » ;) (adresse d'entrée) 
( ) les données sont facultatives. 

LA TABLE DES INSTRUCTIONS 

Bien, voyons à présent les instructions du 
microprocesseur de la PC-1 500, ceci en uti- 
lisant les mnémoniques officielles de 
SHARP. Voyons tout d'abord comment uti- 
liser ces tables, et à quoi elles correspon- 
dent. Comme nous l'avons dit, à chaque ins- 
truction correspond un code (compris par le 
processeur) et une mnémonique (comprise 
par « l'humain »), les tables qui nous sont 
données ici servent de lien entre les deux. 
Il y a deux tables, (es codes des instructions 
de la deuxième table doivent être précédés 
de FD (HEXA). 

PAR EXEMPLE : 


RTN 

a pour code 

: 9A 

PUSH 

a pour code 

: FD 88 

FD40 

correspond à 

: INC XH 

DD 

correspond à 

: INC A 


Il serait très long (et le bulletin du club man- 
que toujours de place) d'expliquer une par 
une toutes les instructions du microproces- 
seur, surtout qu'une description détaillée de 
celles-ci est faite dans le manuel technique 
disponible au club. Je pense qu'il est préfé- 
rable de travailler sur des exemples, ce que 
nous allons voir d'ici peu. 

LES OUTILS POUR PROGRAMMER 

Programmer à l'aide de PEEK et POKE n'est 
pas facile, et surtout très lent, il est aussi 
utile d'avoir un utilitaire d'aide à la program- 
mation, les deux que je connais sont : 

• SMON, un super moniteur très efficace 
disponible au club 

• PC MACRO, un macro assembleur puis- 
sant commercialisé -par POCKET SOFT. 


Pour ma part, je vous propose ici un micro- 
moniteur qui n'a rien de la puissance des pro- 
grammes cités ci-dessus, mais qui nous ser- 
vira de base. Ce programme est écrit en 


BASIC avec une routine LM, nous allons par 
la suite chercher à écrire ce programme tota- 
lement en LM, et l'améliorer. 


LE MICRO-MONITEUR : 

Son utilisation est très simple, après avoir tapé R.V.N. (ENTER) apparaît alors à l'affichage : 


0000 

FF 

□ 

255 

ADR 

: adresse de l'octet 

ADH 

HEXA 

ASCII 

DEC 

FF 

: valeur de l'octet en HEXA 
: code ASCII correspondant 





255 

: valeur décimale 


LES COMMANDES SONT : 

« A » changement de l'adresse 
« SPACE » introduction d'une valeur (POKE) 
t | déplacements dans la mémoire 
« L » liste entre l'adresse en cours et une adresse supérieure. 

« E » sortie du programme. 

La routine LM est implanté à partir de 7150 HEXA (dans les mémoires PS— ZS) 

Pour les lignes 600 et 700, se reporter à l'article sur l'adressage indirect : 

600 : code ASCI1 1 1 (décimal) 

700 : code ASCI1 10 (décimal) 

VITE, VITE, UN EXEMPLE 

Une fois le programme entré dans la machine sauvegardez le et faisons l'essai suivant : Ce 
petit programme musical étant très court nous allons l'implanter dans la zone des mémoi- 
res, à partir de 79B8 HEXA. 


79B8 : 

48 01 


LDI XH, 01 


79BA : 

4A05 


LDI XL, 05 

charge X avec 0105 

79BC : 

6A FF 


LDI UL, FF— » 

charge UL avec FF 

79BE : 

BE E6 6F 

SJP E66F 

Routine BEEP1, UL, X 

79C1 : 

88 05 


LOP05 — 1 

Boucle 

79C3 : 

9A 


RTN 

Retour au BASIC 

Pour introduire ce programme avec 

le micro-MONITEUR : 


RUN 

(ENTER) 


démarrage du programme 


«A » 

&79B8 

(ENTER) 

adresse de début du programme LM 

« SPACE » 

&48 

(ENTER) 



« SPACE » 

• 

&01 

(ENTER) 



• 

« SPACE » 

&9A 

(ENTER) 




Vérifier la bonne introduction du programme à l'aide de t et \ 
Puis « E » et enfin CALL&79B8 : écoutez ! 


Vous pourrez aussi rentrer la routine du dernier bulletin avec le micro-MONITEUR. 

A titre d'exercice, pour la suite de cette série, désassemblez la routine LM du Micro- 
MONITEUR (écrire les mnémoniques correspondant à chaque code) à l'aide de la table des 
instructions, que fait-elle ? 

Vous pouvez envoyer votre travail au club, et pour les plus forts envoyez une optimisation 
de cette routine. 

Nous attendons vos questions, et réponses. 

Pascal ABRIVARD 
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4 

5 

6 
10 
20 
30 

, 32 

40 

6,64 

45 

50 

76,2 
6Ü 
7Ü 
80 
100 
1 10 
ISO 
160 
200 
210 
220 
3O0 
310 
320 
330 
400 
405 
410 
420 
50Ü 
600 
610 
700 
710 


R E M H*: HK H-: :+: H*: :+: :+: :+: HH :+: :+ : 4 < :+: s +: 

REM * te 3 PASCAL ABRIUARD * 

RE M ; + : : + : : + : + H 11 s+î 4: :+: :+: H-: :+: :+'• + •“+: H-: :+: HH :+: :+: :+: :+: :+: ’4 ‘- :+: :+: >H 

BlilIlSSIlIIIlIlIlH^^^^^^^^ 

CLEAR SON ERROR GOTO 150 s NAIT 0 
CURSEUR s RR I HT " m t cr o-MDN ï TEUR " 

BATA 88 , 1 23 , 90 , 96 , 253 , 1 06 , 1 64 , 253 , 88 , 1 42 , 38 , 36 , 253 ,88,142 , 33,181 , 58 , 8 1,181 
HATA 8 1 , 37 , 253 , 88 , 1 42 , 22 , 1 8 1 , 32 , 8 1,81, 37 , 8 1 , 1 8 1 , 32 , 8 1 , 8 1 , 37 , 42 , 1 04 , 0 , 205 , 1 
HATA 181,13,81,81 

BATA 1 54 , 253 , 1 36 , 72 , 0 , 1 0 , 24 1 , 1 85 ,15, 1 83 , 1 0 , 1 29 , 2 , 1 79 , 6 , 1 79 , 48 , 8 1,4, 253 , 64 , 

BATA 1 53 , 1 8 , 253 , 1 0 , 68 , 68 , 253 , 94 

FOR ï «OTO 78 s RE AB UsPDKE 8:7150+1 , Us NEXT I 

F’OKE 879 1 4 , &B0 , &7B , 860 , 8 1 0 

,, M“B=As IF A>87FFFL.ET B«A-65536 

C ALL 8:7 1 50 , B » CURSOR s PR I NT C 

I$«INKEY$ s IF I$=" " T HE N 150 

“ A " CL S 3 PR I NT LEFT* ( C , 5 3 J H A« ” S s I NPUT A 
IF ACOOR A > 6 5 5 3 5 T H E N BEEP 2 s GOTO 200 

" “CL S SPRINT LEFT$ ( C, 5 3? s U--PEEK A* INPUT U 
IF UCOOR U>255BEEP 2 s GOTO 300 
PDKE A , U s A a =A+ 1 s I F A >8:FF'FFLET A«0 

” L » CL S s PR I HT LE F T# ( C , 5 3 ? " - 11 ? s I NPUT L s GOTO 4 1 0 

MmmsmsBmmsBmmmmmmmmmmsÊmmsmfflmmsmmmÊt 

IF L •ACOOR L - A > 8- 7 F F F B E E P 2 s GOTO 400 

FOR ï «QTO L— A s B«A+ 1 s CALL 8:7150, B s LPR INT C s NEXT I s GOTO "A" 

"E" » ENB 

" " A«A-1 s IF ACOLET A-8FFFF 
GOTO "M" 

u ,»A«A+lsIF A >8:FFFFLET A«Q 
GOTO "M" 



10 BATA E- 1 , F 

11 BATA E , F— 1 

12 BATA E+ 1 , F 
1 IJ A I A fc. , f- + 1 

20 RESTORE 9+RsREAB E, F 

21 Q«ASC mm (8${ E :i,F, 1 3-64*:RETURN 
25 Q«ASC M I B si? ( 0:!|?i: E 1 , F , 1 3-64 s RETURN 

31 BATA X— 1 , Y 

32 BATA X , Y- 1 

33 BATA N+.1, Y 

34 BATA X,Y+1 

40 " 8 “ I F PO I NT 8« 1 27GCURS0R 5 s GPR I NT " 67770460047773 " s BEEP 2 , 3 s T I 
0 1 s GCURSOR 5 s GPR I NT Z* s 

41 RESTORE 3*0+ R s RE AB X,Y»IF XWÎF Y “K T HE N 700 

42 IF X*MIF Y «NT HE N 600 

43 BEEP 1,7, 9 s BEEP 1,9, 9 s GOTO 100 
50 " 6 " R*R- 1 + < R« 1 3*4 8 GOTO 43 

60 " 4 " R«R+ 1 - ( R~4 3+4 s GOTO 43 
70 " 2 " R«R+2- ( R >2 3*4 s GOTO 43 

80 "G" I F POINT 8C1270R X+R-1DR Y*R«640R (X-16AND R-3 30R f Y« 1 AND R 


IllSilIlISSiïlfBillHB 

.1. ÜÜ RE S T DRE 90+R s RE AD A , B , C s GCURSDR 53 s PR I NT US I NG " ##» “ ? SQR ( ( X-M )* ( X-M )+ ( Y-H 

1 1 0 E«X , F «= Y , U«0 S GOSUB 25 s CURSOR G s I F ( QDR A )«QGPR I NT " 4 1 4 1 7F " s GOTO 1 30 
120 GPR INT " 7F 7F 7F 11 

130 GCURSDR 14s IF ( QPR B )»QGPR I NT " 7F 4 1 4 :l " s GOTO 150 
140 GPR INT •' 7F7F7F" " 

150 GCURSDR 3: IF ( QDR C J=QTHEN 170 
.1. 60 GPR I NT 2# ? 15 7F7F7F7F " s RANDOM s 
170 GOSUB 20s IF E«JIF F “K LE T U*4S 
180 IF (QDR A )«QGPR I NT " 10:1 F" s GOTO 200 
190 GPR INT u 3F 1 F 11 

200 GCURSDR 12» IF (QDR B )«QGFRINT " 1F10" » GOTO 220 
210 GPR INT n 1 F3F “ 

220 GCURSDR 5s IF ( QDR C 3«QTHEN 240 
230 GPR I NT " 1 F 1 F 1 F 1 F 1 F 1 F 1 F 11 s 
240 GOSUB 20s IF E«JIF F-KLET U«8 
250 IF (QDR A)*QGPRINT " 0407“ s GOTO 270 
260 GPR INT " 0F07 ” 

270 GCURSDR 10s IF ( QDR B ï«QGPRINT ”0704" s GOTO 290 
230 GPR INT “ 070F " 

290 GCURSDR 7» IF (QDR C )=QGPR I NT "030 103” s 
300 GPR INT ”070707 11 s 

400 IF UGCURSDR 7s GPR INT UDR POINT 7SU0R POINT SüUOR POINT 9 

410 W$«" "s IF INKEY* «W$LET TIME «TIME +.0005 

420 G-SQR ( ( X-J )*( X-J )+( Y-K )*( Y —K ) )s IF G< 4L ET W$«"*“ 

430 CURSOR 3 s PR INT Wt-s IF RND 0< . 5.-'G--GTHEN 500 

440 ” ” CURSOR 1 7 s PR I NT US I NG ” 8# . 88 ” ? ( P- T I ME 3* 1 00 s IF TI ME >PTHEN 550 
450 GOTO INKEY* 

500 GCURSDR 7 s GPR INT ,, 2B1D2B" s A«64a USING s FOR Z-OTO 2 s BEER l,LslF INKEY* O" " 
NEXT Z» GOTO 540 

510 BEER ls FOR B«11TD 9STEP -1 8 GCURSDR B s GPR INT ADR POINT B s GCURSDR 16-BsGPRIN 
T ADR POINT (16-Bï 

520 GCURSDR B» GPR INT POINT B- A b GCURSDR 16-BsGPRINT POINT ( 16-B )-As A«A."2s NEXT B 
s GCURSDR 7 s GPR I NT J1 2B 1 52B ” 

530 BEEP 2, 255, 8»B«5-2*Z » GCURSDR 7s GPR INT “OBSBOB" s CURSOR 3s PR INT STR* BsBEEP 
3 , 0 s S-S+B* 1 0 s GOTO 1 00 

540 GCURSDR é'aGPRINT "OOICICIG" , sBEEP 1 ? 50s GCURSDR 5 s GPR I NT "QD3E3E3E3E3E" , a BE 
EP 1 , 60 s GCURSDR 4 s GPR I NT 0 ? Z$ , s BEEP 1 , 70 

550 BEEP 1, 222,444s IF S>HCURSOR 20» PR INT " " s CURSOR 4 s INPUT "Hl -SCORE! NAMEa » 

3 U:$ : S H=S 

560 CURSOR 4 s WA I T s PR I NT US I NG " +888888 ” ? ” YOU B I ED! SCORE “ ? S s END 

600 B* ( P-T I ME )* 1 E5 s BEEP 9,1s WA I T 1 20 s PR I NT ” HERE I S EX I T ! BONUS H 5 US I NG ü B 

6 1 0 S«S+B , L«L-5* C L >5 ) s PR I NT " SCORE » 3 S s GOTO 850 

700 FOR Z« 1 TD 5 s GCURSDR 4 s GPR I NT 0 , ” 0060606000 ” , 0 BEEP 2,3s GCURSDR 4 s GPR I NT 11 1 
024086Ü6C600824 1 O " 

710 BEEP 2,3s NEXT ZsWAIT 90 s PR INT s S«S+ 1 E4 , J«~9 s PR I NT US ING ? ” SCORE “3 S s GOTO 95 

800 WA I T 90 s CURSOR 8 s PR I NT " TEMPTER " s PR I NT ” H l " ? H? " BU “ 3 U$ 

8 1 0 S«0 , L»40 , T»Q , F~» 0459 , Z$« " 7F7F7F7F7F7F7F7F " » ON ERROR GOTO 400 
850 RANDDM s T«T+1 s WAIT Os PR INT “ROUND" ? Ta BEEP 1 

860 X-RND 3+ RND 2+ 1 3- 1 3 , Y «RND 1 6 , M« ( X< 9 )* 15+1, N «RND 1 6 s I F RND 2« 1 LET A«X , X»Y , Y 
«A, A«M,M®N»N«A 

870 J «RND 16,K>RNB 16,R«RNB 4, A$« " FEGEECFEGEECFEEC " 

880 B.f ” " LC JFCN I D I FEKJFE I " , C4?« " F I L I JJFECLGL I LEC " , D$« " JFGEKJJDME I FGEEK " 

890 Ef-= " JJNEM I LEEGC JNGE I " , F# « " N I JFECBGE I N I HLEC " , G*« " JB J JF I FDGCNCFEC J " 

900 H*« " JNOK JBNDDDK J JDK J " , I *« “ L I J JLDOOOK JL I F I J “ , J*« ” FC JNG I LMP I LECHE I " 

9 1 0 K*« " J J J JLEEGMËGE I LEC ” , L$« " JL I JFEE I DCLGEEE I “ , M#« " NEE MME GE EMC J BGE C " 

920 N*« “ L..ECFCB JFEEKLEMC J " , 0$« " FE U NM I JBF I FEE I J " , P*« " LEE I LEEM I LEMEEE I " 

930 FOR Z «RND 9+1T0 Z+5»F0R A «R ND 9+1T0 A+5 

940 mi Z :i=LEFT4r- ( mi Z L- A )+CHR$ (RND 16+64 )+RIGHT* ( mi Z J, 15- A Ü s NEXT A s NEXT ZsT 
IME «0 

950 WAIT 08CLS s CURSOR 5s GPR INT "7F555555557F003E2B3E001712427E00243F247F444F4 

lg§lilill:::llllf|glllllliil 

960 GCURSDR 82» GPR INT u 02023E020200223E22003E0408043E003E2A2A22 “ s GOTO 100 


BAI 






DEFENDER PC-1500 


Ce programme est pratiquement le même 
que celui du numéro 5 (super courses), mais 
cette fois-ci, le tracé du terrain n'est plus 
aléatoire. Il s'agit d'une caverne d'embuches. 

A vous de naviguer et réussir à parcourir 154 
parsecs 


MODE D'EMPLOI : 


• faire NEW &38EF 

• charger le programme 

• faire DEF " " 

• appuyez sur 

• appuyer sur 


SPACE | pour descendre 
pour monter 


ENTER 


A tout moments vous pouvez modifier la 
vitesse de votre véhicule en pressant une des 
touches du pavé numérique. 

Rapide 0~ 9 lent. 

Au départ la vitesse est 0. 


Maintenant pour rejouer vous pouvez faire 
RUN, (votre vaisseau est représenté par un 
point sous le D de DEG, c'est le terrain qui 
se déplace). 


□ □□□ 


1 0 : U=5 : Z=3 : WA I T 0 
*'CLS : GPR INT " 
476371 7971 636F 
67637767434950 
49636 I73674F5F 
4F6763"; 

15: GPR JNT "637171 
716363474F4763 
71 71 7575656D49 
49505053436767 
7777777763497F 
4161777773"; 

20: GPR INT "71 797D 
7971 63474F4763 
7J737163474F47 
6371797163474F 
5F5F5F5F4F4F6F 
6F6F6F6777"; 

25: GPR INT "636349 
495040496D4949 
50534347677777 
27777767676F6F 
676773797D7D79 
7163474F47"; 

30: GPRINT "637179 
797367476F476F 
6F677361494D59 
50404161797163 
47" 

m ’ 40: BEEP 1 : 0= 1 ; Q=0 
: E-0i GOTO 90 

50: IF INKEYS - 
CHR$ 40LET G=0 
.60: IF POINT 56=&7 
FEE T F=0: U- 


IM 70: I1=UAL I NKE Y$ : 
lF t NO0LET G=N 

f> 80: GCURSOR 55: 

GPRINT POINT 5 
5-W 

i i 90 : E=E+ 1 : CALL &38 
C6 

a 100: IF INKEY^ = 

CHR$ 13LET Z=Z 
-1 : GOTO 120 

4 1 10: 1F INKEYS = 

CHR$ 32LET Z=Z 
+ 1 

(1120: W=2^Z: IF (N AND 
POINT 55)=N 
THEN 1 40 

^ 130: GCURSOR 55: 

GPRINT POINT 5 
5+W: FOR 1=0 TO 
4*G: NEXT I: 

GOTO 50 

tfl40: F=1 : FOR I=53T0 
58: 0(1-38.) = 
POINT I:NEXT I 

ni 50: FOR 1=1 TÛ 5: 

WAIT 25: 0EEP 1 
: GCURSOR 53: 
GPRINT O J P ; Q ; R 
î S; T: GCURSOR 5 
3: PR INT "¥" : 
NEXT, I 

} 160: CLS : IF F=0 

WAIT 100: PR INT 
"Bravo ! " 

170: CURSOR 10: NAIT 
: PRINT "SCORE: 

” JUS ING "##### 
"JE: END 

3180:" "RESTORE : 

FOR I=&38C6T0 
&38EE: READ A: 
POKE I, A: NEXT fit 
I : GOTO 10 



éh 



110:GCURSOR 30: 

GPR INT "06520E 
00": BEEP 3: 
GOTO 60 

120: BEEP 1:K=42:H= 
X: GOSUB 200 
130: L=E+U(K<Z-1 )- 


10:" " CLEAR :pIM 
B<7, 3):E=85:U= 
24: B<0, 1 )=99: B 
<0, 2>=99:B<0, 3 
)=99 

20: PAUSE " ***, T 
OURS PB HANOI 
****>: INPUT "C 
ombien de dis# 
ues ?";Q4Q=INT 
Q: IF GKIOR Q>7 
THEN 20 

30:O=PEÇK &764E: P 
=PEEK &764F: 
POKE &764E, 0, 0 
:B=Q:F=2*Q+1: 
FOR I=1T0 Q: B( 
I, 1>=F:F=F^2: 
NEXT 1 

40: CLS : WAIT 0: 
FOR I=0TO Q-l : 
GCURSOR E-Q+I: 
U=U+2M6-I ) : 
GPRINT U: NEXT 
1 

50: FOR I=7-QT0 6: 
GCURSOR E+I-6+ 
Q: GPRINT U:U=U 
’ -2M : NEXT U 


INT <B<0<Z+1), 
Z)/2): T=L+U*(X 
-Z) 

140: FOR n=0TO B<0< 
Z+l>, Z)-l : N=L+ 
Il .-GCURSOR N: 
GPRINT POINT N 
AND U27-2M7- 
GK Z+ 1 ) ) ) : 
GCURSOR E+U*<Z 
- 1 ) 

150: GPRINT &7F:R=2 
M6-0<X+1>):N= 
M+T: GCURSOR N: 
GPRINT POINT N 
OR R: NEXT fl 
160:B<0(X+1) + 1, X) = 
BOCZ+l), Z) : B( 
0<Z+1>, Z>=0 
170: 0<Z+1 )=0<Z+1 )- 
1 : 0<X+1 )=0<X+1 
) + l : A^A+1 
180: IF D=QCLS : 

WAIT :POKE 8,76 
4E, O, P: PR INT " 
BRAUO !!!",* 
USING "####"; A 
J" COUPS. ".-END 
190:K=0:W$=STR$ A: 
FOR 1=1 TO LEN 
W$ : H=UAL CMID# 
<W$, 1,1)): 
GOSUB 200: K=K+ 


oi e i: 

GCURSOR E: 

4: NEXT I: 


GPRINT 8,7F: 

dPRINT "784848 

qc f i;;: 

GCURSOR E+U: 

0040": GOTO 60 

W 'v 

GPRINT 8.7F: 

200: GCURSOR K: 

1*6 1 

GCURSOR E+2*U: 

RESTORE 210+10 

-ïs 

GPRINT &7F 

*H:READ A#: 

n l; 

60: S=ASC INKEY* : 

GPRINT A#, : 

IF S<20OR S >22 

RETURN 

THEN 60 

210: DATA "7C447C o 


70: Z=S-19: IF 0<Z+ 

220: DATA "487C40 ^ 

\t i II 

1 )=0THEN 110 

230: DATA "74545C t 

qts Vï® 

80: BEEP 1 : K=30 : H= 

240: DATA "54547C * 

% 1 ' 

Z: GOSUB 200: 

250: DATA "1C7010 *t 

GPRINT "001010 

260: DATA "5C5474 > 

«te • 

10381000000652 

270: DATA "7C5474 « 

à 

0E00 

280: DATA "04047C * 


90: S=ASC INKEY$ : 

290: DATA "7C547C 3 

U fl 
0» fe 

IF S<20OR S >22 
THEN 90 

300: DATA "5C547C 1 


f i. 't 100: X=S-19: IF ZOX 


f AND B<0<Z+1), Z 

)<B<0<X+1 ), X) 
THEN 120 


19 



DESASSEMBLEUR ESR-4 


Peur vous permettre de travailler 
en langage machine le plus agréa- 
blement possible voici intégré au 
même programme 3 outils indis- 
pensables. 


Vous trouverez ci-joint la table des 
mnémoniques, officiels tirés du 
manuel SHARP. 


LE DESASSEMBLEUR 

Equipé d'une petite routine spéciale il vous per- 
mettra detexter la ROM CPU pour vous en ser- 
vir faites DEF A puis donnez l'adresse de début 
et de fin de désassemblage 

LE DUMP 

Ce programme se lance en faisant DEF B il 
vous fera des DUMP HEXA de 8 octets. Intro- 
duisez l'adresse départ (elle sera transformée 
en son plus petit multiple de 8, exemple : 
&BF02 

LE MONITEUR 

Ce troisième programme vous permettre l'in- 
troduction en HEXA d'un code à une adresse 
donnée : écrivez l'adresse puis faites DEF C 
(attention : ce programme s'exécutera unique- 
ment si l'adresse donnée est autorisée, c'est- 
à-dire ici si : &BE19<@K&C100 
exemple po ur sai sir 78 C0 02 e n BF00 faites 
&BF00 fÜËFl ici imn tel [0l 

® [02] ESI 

pour lé relire rapidement et pourvoir corriger 
faites 1 

&BF00 [DEF] El IËNTËR1 

fËNÎERl [ËNTErI 

La pression d'ENTER vous permet de conser- 
ver la valeur indiquée derrière l'adresse 

ETRANGETE : si vous utilisez ce petit pro- 
gramme pendant 9 minutes, il s'éteindra auto- 
matiquement ne vous inquiétez pas, en faisant 
|ÜN]vous pourrez reprendre l'endroit ou vous 
étiez resté. 

Vous pouvez à tout instant sélectionner le péri- 
phérique de sortie (écran, imprimante), pour 
ces deux premiers programmes en faisant DEF 
D 


Pour introduire ce programme : 

3 Opérations : 

1 Retaper le programme basic 

2 Introduire les données : faire manuellement : 

- CLEAR 

- DIM BS (159)*6, CS (0)*24 

- Introduisez le tableau (valeurs indiquées en 
indice en HEXA 

faites BS (&..)="-" "respectez les 
blancs en fin de chaîne. Toutes les chaînes ont 
6 caractères de longueur sauf BS (&69) et BS 
(&7A) qui en ont 3. 

3. Poker manuellement les valeurs du conver- 
tisseur DECI HEXA (programme qui va de 
&B800 à &B82D) 

Maintenant vos 3 programmes sont prêts à 
fonctionner. Pour aller plus vite il est plus sim- 
ple de sauvegarder ce programme en un seul 
morceau comme étant un programme L.M. fai- 
tes : CSAVE M "DESAS 2" ; &B800, &C6FF 
car ainsi lorsque vous le rechargerez il sera prêt 
à fonctionner (pour le recharger faites 
CLOADM) sinon vous pouvez sauvegarder, 
séparemment ces trois parties en faisant : 
CSAVE "DESAS 2" 

CSAVEM "DESAFIC" ; &C1EC, &C5CF 
CSAVEM "DESACON" ; &B800, &B82D 

Pour le recharger faites alors CLOAD, CLOADM, 
CLOADM, puis commencez par un désassem- 
blage DEF "A" pour réinitialiser la mémoire. 
Les mnémoniques utilisés sont ceux du manuel 
de référence SHARP disponible auprès du club 
Nous vous fournirons de plus amples rensei- 
gnements sur ces mnémoniques dans le pro- 
chain bulletin. En deux mots, voici le minimum 
nécessaire pour pouvoir les lire. 



Registres : I J, A, B, XL, XH, YL, YH, K, L, PC, 
Q, R, DP 

Lorsque l'on indique le contenu du registre P 
il s'appelle M. 

ainsi : LDM a pour effet A (P). La lettre I 
signifie donnée immédiate 
ainsi : LIA n a pour effet A •*- n 
Les suffixes W et B sont propres à des instruc- 
tions de bloc utilisant respectivement comme 
compteur I et J. Dans les instructions de saut 
relatifs les suffixes P et M indiquant plus et 
moins. 

Amusez vous bien et à la prochaine fois ! 

I.S. 

P.S. Pour vous amusez voici deux petits pro- 
grammes originaux du Club. 

Pour obtenir un désassemblage il vous faudra 
les rentrer grâce au programme C puis de lan- 
cer le programme A. 

LERENUM 

Ce programme de renumérotation ne s'occupe 
que des numéros du début de ligne, sa sim- 
plicité en fait un bon exemple de petit pro- 
gramme L.M.). 

Dans le prochain numéro nous vous donne- 
rons un autre RENUM mais qui renumérotera 
tout (GOTO, GOSUB compris). 


PROGRAMME 

Ce programme est entièrement relaogeable et 
renumérotera de 10 en 10 à partir de la ligne 
10. 

Pour comprendre le principe du numéro de 
ligne E...) reportez-vous au bulletin N° 6. 
Pour avoir un incrément différent de 10 chan- 
ger la valeur qui se trouve en &BF22, indiquez 
votre nouvelle valeur en BCD (Ex : pour 7 met- 
tre &07, pour 13 mettre &13...). Pour changer 
le numéro de ligne de départ les octets, &BFO 
et &BFOE (numéro en BCDD point fort de 
&BF0A devant toujours être E). De &BFOF on 
initialise les registres. 

en &BF11 On regarde si on a le FF qui clôt 
la zone de programme 

en &BF16 On regarde si on a un - 
numéro de ligne 

en &BFA1 On recopie le nouveau 
numéro de ligne 


en &BF1F 


On incremente notre nouveau 
de ligne 

en &BF26 On recommence tout. 

Pour utiliser le programme faites 
CALL &BF00 


INVIDEO : 

Voici un petit programme qui a pour effet 
d'inverser la vidéo (caractères blancs sur 
fond noir). Le résultat n'est pas toujours très 
lisible étant donné que les matrices de l'écran 
ne sont pas continues. 

Attention : ce programme n'est pas relogea- 
ble : pour pouvoir le reloger ailleurs 
désassemblez-le et modifiez les CALL qui 
sont &BF06 et &BF11 en fonction de l'endroit 
ou vous voulez reloger ces programmes. 


BFOO P est mis a 17, lieu ou l'on va 
mettre l'affiche le temps de 
la tranformation. 

BF01 dans I on met la longueur 
de ce que l'on va modifier / 
longueur de l'afficheur 12 ). 

BF03 dans DF on met l'adresse 
du début de l'afficheur 

BF06 on va en BF19 ou l'on met 
ce qu'il y a dans l'afficheur 
en RAM CPU on prend le 
complément du contenu de 
toutes ces adresses à &7F 
et on revient. 

BF09 BFOC on réinitialise DF et recopie 
le RAM en RAM VIDEO. 

BFOD BF17 rebelote avec la 2 e partie 
de l'afficheur. 

BF18 on revient sous basic. 


Pour utiliser ce programme faites ceci : 

10 WAIL O :PRINT « BONJOUR » CALL 
&BF00 : CALL &nn avec nn=&1D23 si vous 
voulez que l'affichage soit maintenu jusqu'à 
la pression d'une touche et nn=&ÎIEO pour 
un affichage permanent. 

Dans les 2 cas, mettre en CALL &11E5 pour 
éteindre l'afficheur quand vous le désirez. 
Pour ces CALL voyez leur utilisation en lignes 
33 et 34 du désassembleur. 


H 

L 

0 

1 

2 

3 

4 

5 

6 

7 

8 
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A 

B 

C 

D 

E 

F 

0 

LU n 

LIDP nm 

LDP 

STP 

INCI 

INCP 

ANIMn 

ADIMn 

1 

LP 00 

LP 10 

LP 20 

LP 30 

INCJ 

SC 

CAL 00n 

CAL 10 n 

1 

LU n 

LIDLn 

LDQ 

STQ 

DECI 

DECP 

ORIMn 

SBIMn 

J 

LP 01 

LP 11 

LP 21 

LP 31 

DECJ 

RC 

CAL 01 n 

CAL lin 

2 

LIA n 

LIP n 

LDR 

STR 

INCA 

STD 

TSIMn 


A 

LP 02 

LP 12 

LP 22 

LP 32 

INCB 

SR 

CAL 02n 

CAL 12 n 

3 

LIB n 

LIQ n 

LOS 

STS 

DEÇA 

MVDM 

CPIMn 


B 

LP 03 

LP 13 

LP 23 

LP 33 

DECB 

WRIT 

CAL 03 n 

CAL 13 n 

4 

IX 

ADB 

IXL 

DO 

PUSH 

ADM 

READM 

ANIAn 

ADIAn 

XL 

LP 04 

LP 14 

LP 24 

LP 34 

ADCM 

ANIDn 

CAL 04 n 

CAL 14 n 

5 

DX 

SBB 

DXL 

DATA 

SBM 

MVMD 

ORIAn 

SBIAn 

XH 
LP 05 

LP 15 

LP 25 

LP 35 

SBCM 

ORIDn 

CAL 05 n 

CAL 15 n 

6 

IY 


IYS 


ANMA 

READ 

TSIAn 


YL 

LP 06 

LP 16 

LP 26 

LP 36 

TSMA 

TSIDn 

CAL 06 n 

CAL 16 n 

7 

DY 


DYS 

RTN 

ORMA 

LDD 

CPIAn 


YH 
LP 07 

LP 17 

LP 27 

LP 37 

CPAM 


CAL 07 n 

CAL 17 n 

8 

MVW 

MVWD 

JRNZPn 

JRZPn 

INCK 

SWP 


CALL nm 

K 

LP 08 

LP 18 

LP 28 

LP 38 

INCL 

LEAVE 

CAL 08 n 

CAL 18 n 

9 

EXW 

EXWD 

JRNZM n 

JRZMn 

DECK 

LDM 

IFGTO 

ELSE 

JP nm 

L 

LP 09 

LP 19 

LP 29 

LP 39 

DECL 


CAL 09 n 

CAL 19 n 

A 

MVB 

MVBD 

JRNCP n 

JRCPn 

INC0OA 

SL 


ON 

RET 

0A 

LP0A 

LP IA 

LP 2A 

LP 3A 

INCOB 

EXAB 

CAL 0A n 

CAL IA n 

B 

EXB 

EXBD 

JRNCM n 

JRCMn 

DEC 0/A 

POP 

TEST n 


0B 

LP0B 

LP IB 

LP 2B 

LP 3B 

DEC 0B 

EXAM 

CAL 0B n 

CAL IB n 

C 

ADN 

SRW 

JRPn 


INA 



JPNZ nm 

LP0C 

LP IC 

LP 2C 

LP 3C 

INB 


CAL 0Cn 

CAL IC n 

D 

SBN 

SLW 

JRMn 


NOPW 

OUTA 


JPNC nm 

LP0D 

LP1D 

LP 2D 

LP.3D 


OUTB 

CAL 0Dn 

CAL 1D n 

E 

ADW 

FILM 



WAlTn 



JPZ nm 

LP0E 

LP1E 

LP 2E 

LP 3E 

NOPT 


CAL 0E n 

CALIEn 

F 

SBW 

FILD 

1 LOOPn 


ADPI 

OUTF 


JPC nm 

LP 0F 

LP 1F 

LP 2F 

LP 3F 


OUTC 

CAL 0F n 

CAL 1F n 



OtSASStlABUUR 


'256) s PfKE 

& C 6 A fi i 7 ! C A L L & B ft fi fi ! 
As=Vi: PîIkp achAfiiNr- 
Z* 256 : CPU... aBSfifi : Ai 
=As+Ys: RETijPN 


2 s PQk‘ E aciBF, 
56 > < 2* X-256* 


‘NT (X/2 

TNT CX/ 


256 ): CPi 
G ü S U B 

3 : GOSUB 5 : 
part : v ; î < 


L. actDE: 
PrTIJPN 
INPIJT v S Tir 

v ;Ti pin: DR: 


TF PEEK aBSfifiOai.2 
END 

; RETijP N 

; IF Qi= v O v OP Qi= M Y v 
ThEN PP INT = LPRTNT 
I IF QS= tf N v TMPN PP T NT 
= PR INT 
IRETUPN 

! V A M PAUSE v DES AS SE NB 


LEUR*: GOSUB 3: POKE 
& C 6 F C » &EC « &C t 
9: POKE aCtDE«afi3*afifi*a 
02 ? & 00 » Kfifi - R 07 1 &AR n fc 


10 : 


1 1 i 


12: IF BUCfi POkTE &C6A0* 
B-&80: CALL aBSfifi: 1 = 
I+i: print Ai; v lp* 
5Y$: GOTO tfi 
13:X=(B-aE@)*256+ PEEK 
aClBl :Ci(fi)=Ai+ v CA 
L *: GOSUB t: 1=1+2 
: PRINT CiCEOîAi: 
GOTO 10 

14:C$= LEFTi (Bi(B)*0: 
C$C8)=AS+ V " + 

RIGHJÿ (3S(B)i LEN < 
Bi<B>)-D + v v : 1 = 1 + 1 
15: IF Ci= v D PRINT Ci(fi 
): GOTO 1.8 

16: IF Cf= v 2 v POKE RC6A0 
* PEEK mtdt: CALL. a 
B800: 1 = 1 + 1 : PRINT c* 
(8>; Yi: GOTO tfi 
17: IF Ci= v 3 v LET 2= 

PEEK aCtDl*256+ PEEK 
aC!D2: GOSUB t: 1=1+2 
: PRINT Ci(fi>;Aiî 
GOTO 18 

18s JF B=&7A LET L= PEEK 
&C1D1S POKE &C6A01 L: 
CALL aBSfifi: Ci< fi )=Ci< 


8>+Yi+ v RFT v : GOSUB 
23: GOTO tfi 
19: JF B< >&69 GOTO 24 
28:1=1-1: FOR N=i TQ L: 
POKE aC6Afi, PPFK &C1 
Dl: CALL aBSfifi: Ci (fi) 
=Ci(0)+Yi+* GTO v 
21 : GOSUB 23:X=T: GOSUB 
2: Cs<0)= M IF 

v : NEXT h: L= 0: 1=1+3 
•22: X= PEEK aCtBt*256+ 
PEEK &CIB2: GOSUB 1: 
PRINT * ELSE 

v ; as: goto tfi 
23: X= PEEK aC4B2*256+ 
PEEK ac 1133: GOSUB 1. : 
PRINT Ci(fi>! Ai: 1=1+3 

: return 

24:4= PEEK actlit: POKE 
&C6A8 î» h: CALL aBSfifi: 
1=1+1 :Ci(fi)=Ci(fi)+Yi 
+ v < y 

25 : X=X+ 1 + ( Ci = v + ¥ ) *H - ( Ci 
= V -D*M: GOSUB t: 
PRINT C*(0)5Aiï *)*: 
GOTO Ifi 

26: V B V PAUSE V DUNP MEMO 
IRE V : GOSUB 3:1=8* 
INT <T/8>, 


0): GOTO 27 

38: v Ii v T N PUT •’ IMPRIMANT 
E ? V SQ$: GOSUB 5: 

END 

3 1 : v C v ARE AD I: PRINT = 
PRINT : 1 = 1-1 : JF K 
PEEK aC6E4*256+ PEEK 
&C6E3 END 

32: 1 = 1 + 1 : Gi= v v : Mi= v v : 
NAIT fi: IF T>=aClBfi 
b ND 

33: X=I : GOSUB 1: POKE a 
C6A0i PEEK I: CALL fc 
B888: Ai=Ai+ v V +Yi: 
PRINT Ai: CALL atD23 
:Gi= INKEYi : IF Gi= 
vv CALL ai 1E5: GOTO 
32 

34: PRINT Aiî * v ; Gi: 

CALL ai D23: Hi= 

INKEYi : CALL attE5 

35: B=( ASC Gi-48-7*(Gi 
>= V A V ) 3*1 6: B=B+( ASC 
M$-48-7*CM$>= M A v 3 ) : 
POKE li B: GOTO 32 


DONNEES 


L -.i 

2lIA 


Bi<88> = ‘‘2 
BS < 8 1 > = v tm 
Bi(82) 
B$<03)= M 2LI 
B$(04)= V 1IX 
Bi(05)= M 1DX 
Bi<06) = v 1 1 Y 


v 1 D Y 
MMVU 
lEXul 
V 1MVB 
v 1 EXB 
U. A “IN 
v 1 SBN 


Bi< 87 > 

Bi < 88 ) 

Bi( 89 ) 

Bi< 8 A) 

B S < 8 B :* 

B* (80 
Bi( 0 B) 

Bi < 8 E> 

Bi( 8 F> 

Bi( 18 ) 

Bi(li) 

Bi< 12 ) 

Bi< 13 )= V 2 LI 0 
Bi( 14 ) = M 1 AD B 
Bi( 15 )= v 1 SBB 
Bi( 16 ) = v l?” 
B$(17)= y 1??v 


L H JJ w 

v ISBN 
tf 3 LTBP 
V 2 L 1 BL 

-« i TP 


19* &37: l=0 

275 X=I : GOSUB 2:Ci(fi3=A 

Bi(18)= v 1MVWD 

X=l: GOSUB 2: B= PEEK 

i: IF DR END 

Bi(19)= v lEXUD 

aClIifi: POKE aC6Afi,B: 

28: FOR J=fi TO 7: POKE a 

Bi( 1A)= M 1MVBD 

CAll aBSfifi: Ai=Ai+ vv 

C6A8j PEEK (J+aCiDEO 

Bi ( 1 B ) = v 1 EXBD 

+Yi: IF DR END 

: CALL aBSfifi: IF J/2 

Bi(lC)= v lSRU 

IF (B<a88) OR <B>aBF 

= INT (J/2) LET Yi= v 

Bi(lD)= tf lSLü 

> AND CBCaFfi) LET B= 

V +Yi 

Bi(lE)= tf lFILM 

B-&40*(B>&BF)s GOTO 

29 : Ci ( O ) =Ci ( 8 > +Yi : NEXT 

Bi( 1F)= V 1FILD 

14 

J: I = I + J + 1 : PRINT Ci( 

Bi(283 = v ÎLDP 


■\§\~ 


Bi( 21 ) 
Bi( 22 ) 
Bi( 23 ) 
Bi< 24 ) 
Bi <253 
Bi( 26 ) 
Bi< 27 ) 
Bi( 28 ) 
B$( 29 ) 
Bi< 2 A) 
BiC 2 B) 
Bi( 2 C> 
Bi( 2 D) 
Bi( 2 E 3 
Bi( 2 E) 
B$( 30 > 
Bi< 31 ) 
Bi( 32 ) 
Bi( 33 ) 
Bi( 34 ) 
Bi( 35 ) 
B$( 36 ) 
Bi< 37 ) 
Bi( 38 > 
Bi< 39 > 
Bi( 3 A) 
Bi( 3 B) 


* .1 L U »v 

v 1LDR 

v 1 LDS 

V 1IXL 

M 1DXL 

V 1IYS 

v 1 DYS 

V ±JRNZP 

tf -JRNZM; 

K '+JRNC? 

v - JR N CM 

V +JRP 

V -JRM 

y | 999 

v -LOOP 
v 1 STP 
M 1STQ 
M 1STP 
v 1 S T S 
v 1PUSH 
V 1DATA 

y i 999 

= v 1 RTN 
= tf +JRZP 
= V -JRZM 
= tf +JRCP 
= V -JRCM 


BS<3C)= y i ? ? ? v 
BS<3D> = y 
BS<3E) = y l*^ y 
B$(3F) = y iv?9 
B$(40)= m 1TNCT v 
BS<4i)= y iDECI * 
B$<42)= tf lINCû * 
B$<43)= v lDECû * 
B$<44>= tf tûDW * 
B^(45) = MSBW * 
B$(46>= y ÎANMA * 
B$(47> = ‘‘ t DPMA v 
B$<48) = tf tINCK 
B$<49)= y IDECK v 
B$<4A) = MINC0A* 
Bf <4B) = V îBEC0û v 


BS <40 
BS<4D) 
BS<4E) 
BS<4F) 
BS (58) 


* 1 1 NA 
v 1 NOPui 
V 2UAIT 
* t AIlPï 
‘‘Il NCP. 


BS<51 > = y 1.BFCP v 
BS<52) = V t STB * 
BS<53>= v tMVBM v 
BS <54>= y IRE ABM v 


v 1 MVMB 
y 1 RE AB 
M 1 IBB 
MSUP 


BS<55> = 

BS < 56 ) = 

BS <57) = 

BS<58> = 
BS<59>= y 1LBM 
BS<5A) = V 1 SL 
BS <5B)= y 1 POP 
BS <50 = *!??? 
BS< 5 B ) = y 1 OU T A 
BS<5E) = V 1^ 
BS<5F)= V 1 OU TF 
BS<68)= V 2ANÏM 
BS<61)= V 2QRTM 
BS<62)= V 2TSIM 
BS<63)= V 2CPIM 
BS(64 )= v 2ANIA 
BS<65>= y 20R!A 
BS< 6b) = y 2‘TSI A 
BS<67)= V 2CPÏA 
BS<68) = V 1^ 
BS< 69) = y 4TF V 
BS<6A)= V t ?^? 


BS<6B>= 
BS <60 = 


y 2TEST 

M t 97V 


BS<7B> 
BS< 7E) 
BS< 7F) 
BS<88) 
BS < 8 1 > 
BS < 82 > 
BS (83) 
BS<84> 
BS (85) 
BS<86> 
BS (87) 
BS (88) 
BS <80 
BS< 8 A •* 
BS<8B> 
BS <80 
BS<8B) 
BS<8E) 
BS <80 
BS<98> 
BS <91 ) 
3S< 92) 
BS<93) 
BS<94) 
BS<95> 
BS<96> 
BS<97) 
3S<98) 
BS<99> 
BS<9A) 
BS<9B) 
BS <90 
BS<9D) 
BS<9E> 
BS<9F) 


*3 JP NC v 
y 3JP7 
3 J PC ■ , 
y i. TNCJ y 
v 1. BEC.T y 
v 1 T NCR y 
MOECB v 
v 1 AfiCM v 
MSBCM v 
MTSMA y 
MCPMA y 
v 1 I NCL v 
y 1 BECL v 
*t TNC8B* 
y 1BEC0B* 
y tINB v 

v | 9 9 9 y 

y 1 NQPT * 

y 1 999 

y 1.SC y 
MRC 
v t SR 

V 1WRIT v 
V 2ANIB y 
V 20RIB y 
V 2TSIB y 

y i 9 9 9 v 

v ILE AVE* 

1 999 

V 1EXAB * 
*1EXAM v 

...4999 v 

V 10UTB. y 

y ■} 999 v 

y 10UTC * 




y 

3800 

1206 

02 B 7 

DB50 

82 C 5 

v 

3808 

B B 02 

F 52 6 

18C6 

A857 

v 

3810 

3458 

78 BR 

1 B5B 

78 BR 

v 

3818 

1 B 02 

8026 

3764 

8F34 

v 

3820 

758A 

3A86 

5B74 

472C 


3828 

045B 

7448 

2637 

0088 


BS<6B) = V 1 

v 



à?m 

8402 

30BB' 

5002 

B8HB 

BS<6E) = *1”7 

v 

BF 88 

B002 

E0BB 

5002 

10BB 

BS<6F)=*1??? 

v 

B F 1 8 

2467 

FF 28 

0237 

67F0 

BS<70)= W 2ABTM 

v 

3F 18 

3B09 

3053 

5804 

5380 

BS<71)= V 2SBIN 

v 

BF20 

0002 

100C 

23 C 4 

2B17 

BS<72) = *1”? 

v 






B$<73) = M”? 

v 


t 




BS<74>= y 2ADT A 

y 


I 




BS<75)= y 2SBI A 

v 

U 1 

£î»-yw 

9700 

3 B 1 8 

F 8 00 

78BF 

BS<76) = y t”? 

v 

BF08 

1.91.0 

F 800 

1.910 

FR 40 

BS<77) = V 1 . 9*^9 

v 

BF10 

9778 

BF - 9 

1. 0 F R 

401.9 

BS<78)= v 3CALL 

v 

BF 1 8 

3718 

9702 

3B34 

027F 

BS<79:« = y 3JP 

v 

BF20 

B B 45 

582F 

8697 

3780 


BS<7A)* V 40N* 

BS<7B.) = y 17” 
BS< 7C) = V 3JPN7 




GENERATEUR DE FONCTIONS 


Utilise I extraordinaire possibilité de passer 
en mode " PRO " tout en laissant le com- 
mutateur de mode sur " RUN " et de faire 
?" „ u " P ro 9 ra mme normalement. Le 
ft'J’ccn , de ™ de se tr °uvant à l’adresse 

63 550, .1 suffit de POKER à cette dernière 

un 3 pour passer en mode ” PRO ” et un 
. I pour revenir en mode ” RUN 

FONCTIONNEMENT LIGNE PAR LIGNE 

' Ligne 1 juste après le POKE 

^fï e r acle : en effe L l'instruction 
NPUT se réalisé normalement, alors que 
nous nous trouvons en mode " PRO " arârp 
au POKE précédent. Cet input affiche donc 
en mode PRO | e contenu de son libellé soiï 
ni; ' qui re P résente le début de la ligne à 

LJ & mmer aV6C SOn numéro correspon- 
dant. A ce stade, il ne reste plus qu'à la com- 
pléter et la valider par un ENTER : la liane 
J est programmée ! 


* Ligne 2 : elle est appelée par DEF A : 
ous sommes toujours en mode PRO et 

!i a Y S ! JI ,! e v devient très classique par un INPUT 
a . ,X qui attribue une valeur numérique 
a X qui doit figurer dans la fonction autopro- 
grammee. La ligne 4 print le résultat et 
retourne en 2 après un ENTER. 

Ligne 3:" du listing peut être supprimée 
puisqu elle change à chaque autopro- 
grammation. M 

AVANTAGE 

1. Pas besoin de réserver des octets (80) 
SZes;" S auto P ro 9 ramma tîons 

3. Pas d'évaluation ou de calcul de la 
fonction; 


4 Rapidité : instantané I! Comme en mode 
rnU normal ; 

5. Peut être "MERGEE" ; 

6- 57 octets seulement. 

REMARQUE 

u P rRFZ P «7TTr SOUS - ro ™ ne »K 

un RETURN en fin de ligne, il suffit de rem- 
placer le ENTER par RETURN" en mode 
RSV sur I une des 18 lettres réservées à cet 


application 

Voir le répertoire téléphonique... 

MODE D'EMPLOI 

t.dUN"AA"-Sh»A sf" 39 ' 
3* ÉNTE d R Cti0n ^ ^ ^ 0nctl0n 3F=X2+3 

4 DEF A X?7 =X ^ +3 

5. ENTER 7 

* REMARQUE : 

RUN 'AA" peut être introduit en mode RSV 
sur A avec un a 


REPERTOIRE 
TELEPHONIQUE 
PC 1251 


• 80 numéros avec le nom peuvent être intro- 
duits très simplement. 

• Le rappel d'un numéro se fait par DEF les 
4 premières lettres du nom concerné 

• Ce programme peut être « mergé ». 

MODE D'EMPLOI 

Affichage 

1. RUN "==" 990 - PHONE - 
ou shift=* 

2. Au clavier** "POMPIER 18 

3. ENTER 990 : PHONE "POMPIER 18 

4. DEF= POMPIER 18 

5. DEF POMP POMPIER 18 

FONCTIONNEMENT DU PROGRAMME 
LIGNE A LIGNE 

992: 

Après un RUN"==" passe en mode PRO et 
affiche le N 0 de ligne utilisé plus PHONE et 
•attend l'introduction du nom et n° qui doit être 
validé par ENTER. 

993: 

Repasse en mode RUN et saute directement 
à la ligne 994, puisque la condition "IF AS' 
n'est pas vérifiée (juste après le ENTER de la 
ligne 992 l'afficheur est vide dont AS=" ") 

994: 

RESTORE 908 positionne le pointeur de data 
à la ligne 908 : 

GOSUB 999 calcule l'adresse de la ligne 908 : 
POKE E+5, 18, PEEK (E+13),... 

Forme l'étiquette de la ligne autoprogrammée 
avec les 4 premières lettres du nom introduit, 
puis POKE 193 (PR INT) juste avant le " pré- 
cédent le nom et n° introduits au clavier. 

995: 

• RESTORE 992 positionne le pointeur de data 
à la ligne 992 : 

• GOSUB 999 calcule l'adresse de la ligne 
992- 


• P=PEEK...= dizaine en code machine du 
libellé de l'input de la ligne 992. 

• Q idem pour les unités. 

• If P=64 and Q=73 test si 909 est atteint, 
si oui on POKE à la ligne 992 un 2 à la place 
du 3 du POKE &F83E, 3 ce qui a pour effet 
d'annuler le mode PRO, les 80 n° étant 
atteints. Si non on saute en 996. 

996 : 

Calcul par décrémentation -1 du prochain n° 
de ligne utilisé 

997 : 

(de 990 à 901) 

998: 

Introduit dans le libellé de l'input de la ligne 
992 le nouveau n° de ligne pour une prochaine 
introduction 

: GOTO 908 affiche directement pour vérifica- 
tion le nom et n° programmés. 

RSV 

= : run *==*8 
ui GOTO *R*8 
ME!*1 34 

906: PRINT = pr T ht : ENB 
90? s *P* PR INT = lPRINT : 
N=906 
903: REM 
991: GOTO N 

992:''=='' CLEAR : POKE &F 
83c*3: ï‘n»UT *990 PH 
ONE ’ ; E 

993:* = " AREAS A$: POKE «i 
F83Es2:n=908: IF A* 
GOTO AS 

994: RESTORE 908: GOSUB 9 
99: POKE E+5» 18» 

»EEK (E+13) * PEEK (E 
+ 14)» PEEK <E+15> » 

PEEK (£+16) » 18* 193 
995: RESTORE 992: GOSUB 9 
99: P= PEEK <E+!9):Q= 
PEEK (E+20) : IF P=64 
AND Q=73 POKE E+14,6 
6» 29* 193* 18*73*64*73 
: GOTO 908 

996: IF Q=64 lET P=P-l:8= 
73: GOTO 998 
997: Q=Q-1 

998: POKE E+19*P*Q: GOTO 
908 

999: E= PEEK 50958+ PEEK 
50959*256: RETURN 

3486- '••’£!* 

303 . 


REMARQUES 

* RUN "==" peut être introduit en mode RSV 
sur= avec un 

** L'introduction d'un nom + n° doit être obli- 
gatoirement précédée d'un " 

906 et 907 : 

Pour ceux qui possèdent l'imprimante, shift P 
vous imprimera tous vos noms et n°, dans le 
cas contraire ces 2 lignes peuvent être 
supprimées. 


PROGRAMME IM 


NOTE POUR TOUT PGM LM : 

Un programme LM peut se sauvegarder par 
la commande CSAVE M, tout comme sur le 
PC 1500. 

Syntaxe : CSAVE M « nom du fichier » ; add 
de départ, add d'arrivée. La commande 
CLOAD M permet de recharger où l'on veut 
un programme LM de la cassette au PC 1251. 
Syntaxe : CLOAD M « nom du fichier » ; add 
de départ. 

Le nom du fichier est facultatif (« nom du 
fichier ») pour ces deux commandes. Lors- 
que l'on charge un programme LM, il est pos- 
sible de le reloger n'importe où dans la RAM, 
mais prendre soin outre de changer l'adresse 
de départ lors du CLOAD M, de modifier par 
des POKEs les adresses des CALL et JP, etc. 
s'il y a lieu. 

EMPLOI 

DU PROGRAMME SET DE JF LENTE 

Ce programme occupe 140 octets, et se 
reloge n'importe où en changeant les qua- 
tre CALL BE55. Entrer le Dump fourni et 
ensuite c'est très simple. (Cf exemple donné). 

Mettre dans la variable F (F - ..., ou par 
AREAD, INPUT) le nombre à traiter, puis 
POKEr en &C6A0 le nombre de décimales 
voulues (POKE &C6A0, 5 donc 5 décimales). 
On peut mettre ce nombre dans une varia- 
ble S par exemple, puis POKEr cette dernière. 
Lancer le programme LM par un CALL add 
du début de pgm. 

La variable A contient alors le nombre initial 
(dans F) arrondi à S décimales et on peut 
recommencer aussi souvent que nécessaire 



en changeant par exemple S, F n'étant jamais 
modifié, il est inutile de recharger dans F plu- 
sieurs fois le même nombre si l'on veut en 
changer l'arrondi. 

Normalement aucun plantage ne doit surve- 
nir, hormis des ERROR 3 si vous POKEz des 
nombres supérieurs à 255 ou inférieurs à 0, 
le programme prévoyant les autres cas. 


Admirer la rapidité 

Nous vous donnerons, da 
numéro des explications su 
fonctionnement de ce prog 
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6BB Flag LLIST bit 3 à 1 si interface connectée, sinon O (+&4) 

C6D0 N° de la dernière Var Dim utiisée (O à 225) en Décimal 
C6D7 Flag PRINT=LPRINT Bit ' à 1 (+&8) 

C6EB, C6EC Adr-1 d'une var utilisée au clavier et Add+1 du POKE 
C6ED, C6EE Adr-1 de la var dans INPUT ou AREAD 

C6F3 Pointeur de Boucles.Poids faible de l'add de la dernière boucles dans la pile. Le poids Fort contient le nombre de 

C6F4 Pointeur des sous-programmes GOSUB, poids Forts de l'add dans la pile 


■A DOIT 

RI 




La pile des FOR-NEXT est située de &C710 
à 8C75F, soit 80 octets. Regardons com- 
ment s'organise cette pile. On peut imbriquer 
5 niveaux de boucles, ce qui donne 16 octets 
par niveau. Le pointeur de cette pile est en 
&C6F3 et contient le poids fort de ce con- 
tenu indique le nombre de boucles actuelle- 
ment imbriquées. Ex : PEEK &C6F3=&10... 
(..&60), le poids fort 1 donne le premier 
niveau et dans la pile on est en &C710. 


CTI 0 97C6 3080 0048 3276 
C 7 1 8 8830 0003 63B8 E810 


Décomposons les 16 octets d une boucle ; 
FOR A=0 TO -32768 STEP 
—32768 : NEXT A en ligne 10. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 


adresse 

& 

C710 

97 

C711 

C6 

C712 

00 

C713 

80 

C714 

00 

C715 

48 

C716 

32 

C717 

76 

C718 

80 

C719 

00 

C71A 

00 

C71B 

00 

C71C 

63 

C71D 

B8 

C7E1 

EO 

C7-1F 

10 


&C697+1= adr de la var A 
&8000-&FFF-1 = -32768 

poids Fort=nbre de chiffres -1:4+1 Chiffre 
poids faibles = signe, 0 si positif sinon 8 
-32768 


&B863 adr du NEXT -1 


E010 Ligne 10 où se situe le NEXT 


Si on avait eu TO 32767 : soit un nombre positif 3 e oct : FF 
4 e oct : 7F &7FFF 

les octets N° 5,10.11.12 ont l'air d'être toujours à 0, il y a ici un sujet de recherche. 

JF 



LE CHATEAU D'HUS 


Depuis des siècles, la vie s'écoule calmement 
dans le petit village de LODZ dominé par le 
vieux château d'HUS que le donjon en rui- 
nes et les créneaux moussus distinguent à 
peine de la végétation locale. Déserté depuis 
la disparition du marquis d'HUS, le château 
ne semble plus intéresser que les hiboux et 
autres rapaces nocturnes qui nichent dans 
ses courtines. Et pourtant, des légendes corl- 
portent qu'il renfermerait des trésors impen- 
sables dont le « QUATRAN » : objet poly- 


morphe qui donnerait à qui le possède 
richesse et pouvoir. Des trésors oui ! mais 
aussi des créatures démoniaques dont la 
seule vision, dit-on, épouvanta ou rendit fou 
des aventuriers téméraires que l'on ne revit 
jamais. 

Voilà ce que vous deviez savoir valeureux 
voyageurs avant de franchir la lourde herse 
qui sépare le monde des mortels de l'univers 
inquiétant et tourmenté du château d'HUS. 


Les échanges de coups se poursuivent tant 
que l'un des béligérants n'est pas mort. 

NOTE : Il nest pas possible d'interrompre un 
combat. 

COMMANDE: 

Pour combattre : C ENTER 
Pour fuir faire : F ENTER 
Pour lancer une 
gousse d'ail : A ENTER 


TABLEAU 
DES MONSTRES 

POINTS 
DE VIE 

POINTS DE 
MOUVEMENT 

VAMPIRE 

10 

10 

ZOMBIE 

9 

6 

GNOME 

6 

7 

DEMON 

13 

4 

GEANT 

10 

5 

CYCLOPE 

8 

4 


BUT DU JEU : 

Franchir les diverses salles du château en 
fuyant ou combattant les monstres qui s'y 
trouvent, reconstituer le « QUATRAN » afin 
de sortir du château, vivant et charqé de 
trésors. 

DEPLACEMENT : 

Chaque déplacement à l'intérieur du château 
s'effectue en passant d'une salle à l'autre. 
Chaque salle correspond à une situation. 
Ainsi, combattre ou fuir un monstre permet 
de passer dans la salle suivante ; acheter ou 
laisser un objet, trouver un trésor etc. A la 
15 e et à la 25 e salle, des fontaines magiques 
augmentent vos points de vie de 20 unités. 

EXCEPTION AU DEPLACEMENT : 

Refuser de boire une fiole ne vous fait pas 
progresser d'une salle. 

POINTS DE VIE ET TRESORS : 

A I entrée du château vous possédez 80 
points de vie, ces points de vie représentent* 
votre potentiel santé, si ce potentiel est supé- 
rieur à zéro vous êtes vivant, dans le cas con- 
traire vous êtes mort. Chaque monstre pos- 
sède des points de vie dont il faut tenir 
compte dans les combats (voir tableau des 
monstres). 

Au hasard de vos investigations vous décou- 
vrirez peut-être, et c'est préférable des tré- 
sors dont la valeur variant entre 1 et 35 S 
vous permettra d'acheter divers objets, et 
d'établir un score. 


LES MONSTRES : 

Lorsqu un monstre apparaît vous pouvez 
combattre ou fuir. 

COMBAT :En décidant de combattre vous 
avez I avantage de porter le premier coup qui 
avec une épée magique peut être fatal pour 
le monstre. Vous faites aussi preuve de cou- 
rage ce qui ajoute une unité à vos points 
d'expérience. 

FUITE : Vous pouvez fuir devant le monstre 
Chaque monstre possède une capac ité de 
mouvement, vous aussi et elle est de 9 uni- 
tés. La tentative de fuite est calculée par l'or- 
dinateur de la façon suivante : le PC -1211 tire 
au hasard un nombre compris entre 1 et 9, 
si ce nombre est supérieur ou égal au poten- 
tiel de fuite du monstre, vous le distancez. 
En cas d échec, le monstre vous rattrape, il 
a l'avantage du premier coup, vous perdez 
votre épée magique (si vous la possédez). 

NOTE : La fuite n'augmente pas vos points 
d'expérience. 

EXCEPTION : Vous ne pouvez pas fuir 
devant un vampire, cependant vous pouvez 
le faire fuir avec une seule gousse d'ail. 


LES BLESSURES INFLIGEES : 

A chaque coup porté par le monstre vous 
perdez de 1 à 6 points de vie. 

A chaque coup que vous portez au mons- 
tre, il perd de 1 à 6 points de vie. 


LES FIOLES : 

Au fil des salles du château d'HUS vous re 
contrerez peut-être des fioles. Si vous dé 
dez de boire la fiole vous devez savoir qu'e 
peut renfermer une potion magique • q 
ajoute de 2 à 12 points de vie. Du poisor 
qui vous retire 7 points de vie. De l'eat 
aucune conséquence. Si vous laissez 
fiole : (voir déplacement). 

COMMANDE : 

Pour boire la fiole faire : 0 ENTER 
Pour laisser la fiole 

faire : N ENTER 

Les résultats sont affichés dans le derniei 
paragraphe « affichage ». 

LES PIEGES : 

Les pièges vous font perdre 5 points de vie. 

LE VOLEUR : 

Le voleur vole vos trésors, mais ne touche 
pas à l'épée magique, au quatran, à l'ail. 

OBJETS A ACHETER DANS LE CHATEAU : 

Les trésors que vous trouverez vont vous per- 
mettre d'acheter des objets. Pour acheter des 
objets, après l'affichage de sa valeur faire : 

ENTER 0 ENTER. Pour laisser un objet faire : 
ENTER N ENTER. 

NOTE : Un achat trop onéreux n'est pas 
accepté par I ordinateur. Un achat accepté, 




les 15 e et 25 e salles sont signalées par un 
« beep ». 

L'EPEE MAGIQUE : Augmente de 3 points 
tous vos combats. 

L'AIL : Vous pouvez acheter autant d'ail qu'il 
vous plaira, l'ordinateur prend en compte le 
nombre de gousses d'ail achetées. 

NOTE : Une gousse d'ail lancée contre un 
vampire est perdue mais le fait fuir. 

LE QUATRAN : Le « Quatran » est l'objet 
légendaire qui vous permettra de sortir du 
château. En fait le quatran se compose de 
4 joyaux qui rassemblés vous apporteront la 
liberté. 

Ces joyaux sont : le rubis 
la topaze 
le saphir 
l'émeraude 

Si le rubis, la topaze, le saphir peuvent être 
achetés à n'imorte quel moment de la par- 
tie, l'émeraude se trouve dans la salle magi- 
que, l'émeraude est gratuite, elle est offerte 
à qui ouvrira la porte de la salle magique. 

LA SALLE MAGIQUE : 

La salle magique est gardée par une lourde 
porte dont la clef est numérique. Or, la 
légende veut que lorsque vous approchez de 
la salle magique, l'image du code d'ouverture 
apparaisse un instant dans les airs. Ainsi 
après avoir franchi les 34 salles du château, 
3 « beep » sonores vous indiquent que vous 
êtes à proximité de la salle magique. Guet- 
tez alors dans le coin droit de l'affichage, un 
code apparaît et reste affiché une fraction 
de seconde. Puis l'ordinateur vous demande 
de restituer le code. Si le code est bon la 
porte s'ouvre, vous prenez l'émeraude. Si 
vous possédez les 3 joyaux vous sortez du 
château ; sinon sans les 20 points de vie 
supplémentaires vous continuez la partie, à 
la recherche des joyaux manquants. Le code 
est mauvais, vous continuez la partie à par- 
tir de la première 

Note : Si le code est mauvais, la porte reste 
close, mais la combinaison est inchangée. 
Si le code est bon, la porte s'ouvre et la com- 
binaison change automatiquement. 

La sortie du château : 

A la sortie du château, vos points d'expé- 
rience sont multipliés par 10 et ajoutés à vos 


trésors. Votre total est comptabilisé et si ce 
total est supérieur au meilleur de tous les 
scores, votre nom reste inscrit dans le livre 
d'or du château. 


Initialisation : 

Après avoir entré le pro- 

gramme, afin d'initialiser la clef de la salle 

magique faire : 

RUN 12. Puis après l'affi- 

chage *EMERAUDE faire BREAK. 

AFFICHAGE : 

Y* 

Potion magique 

Y+ 

Poison 

Y' 

Eau 


L'ordinateur demande la 
clef de la salle magique 

TROP TARD 

Le monstre vous rattrape 

VOUS + 

Vous êtes mort 

MONSTRE + 

Le monstre est mort 

####**#### La salle magique 

#><# 

La porte reste fermée 

#<># 

La porte s'ouvre 

EXP. 

Point d'expérience 

NOM: 

L'ordinateur demande 
votre nom 

SCORE : 

L'ordinateur affiche le 
meilleur score 

OK 

Votre tentative de fuite 
est réussie 

? ? ? : 

L'ordinateur vous 
demande vos 
commandes 

=> 

Votre total final 

— 

Valeur du trésor 

PDV : 80; 0 /;% : 0 

Affichage des points de 
vie et trésors (début), ail. 

7T 

L'épée magique (après 
avoir acheté l'épée magi- 
que ce signe s'inscrit avec 
les points de vie, si vous 
perciez l'épée le signe 
disparaît). 

% 

Gousse d'ail 

2: K=0: 1 

”0X1=0: 

T=0: U 

=30: P=û 

: 0=0 : 

N=0 : W=Q 

:S=Q: 

•-> 

GOTO 87 

9: BEEP 

3 : pause: 


10: PAUSE 

K « 

INPUT 

l, ¥s "ÎB 

11: IF D< 

>RPAUSE 

"8X8 

” : GOTO 

860 

12: PAUSE 

"808" 


: GOSUB 995; R 


=E5+ I HT 0399 
9Q92 ) 

14: PAUSE "+EMER 
AUDE": IF <M= 

i )+< 0=2 y + < N= 

3) =3 BEEP 3: 
büTü 1 c* 

16: BEEP 1 : U=lJ+2 
OîGCSTO 73? 
13: P=10P: PAUSE 
"EXP. " 5 P : K=K 
+P 

20: PR INF "=>"îk 
5 "# 

25: IF K>HLET H® 
K: INPUT "NOM 
:"5F* 

26: PR INT "SCORE 

:-;f:$?" "s h; 

"$":£HD 

1 00 : GOSUB 995 : Y= 
150+ INT <3Z> 
: IF J$="ü" 
GOTO Y 

101a l =1-1 : GOTO S 

150: PAUSE "Y*": 
GOTO 715 

151: PAUSE " Y+ " : U 
=U-7: 60T0 78 
5 

152: PAUSE "Y. «s 
GOTO 872 

700: GOSUB 995: Y= 
1+IHï <352 > 
705: PAUSE V j Y 
5 «*“ ; K=K+Y: 
GOTO 787 
710: PAUSE "OK": 
GOTO S ■ /. 

715: GOSUB 995: U® 
2+<l+INÏ C6Z 
>>+U:GOTO 78 
5 

720: PAUSE "VOUS+ 
" : END 

740: GOTO 725 
750: GOSUB 995 :Y= 
1+INI cyZX 
IF Y >=EGOTO 
710 

751** GOTO 770 
760: IF <B=1U>+<T 

•-l:60T0 710 
770: PAUSE “TROP 
TARD":M=0:S= 
0 s GOTO 850 
780: PAUSE Afj "+" 
735: IF l_k -OTHEN 
720 

787: PRINT “PDVs" 
5U5'S";k;"$" 
; ", ";r$î " 

î T: GOTO 872 
795: INPUT “???s« 
;V$:IF V*="C 
"LET P=P+1 : 
GOTO 830 
797: 1.F Y$="A" 
THEN 760 


800s GOTO 750 
830SG0SUB 995 s Y* 
1+INT <6Z): Y 
=Y+M:B=B-Y: 
IF B<=OTHEN 
780 

850 s G08UB 995 :Y= 
1+1 HT <62)5 U 
=U-Y: IF Lk'=0 
THEH 720 
855: GOTO 830 
858:M=3:S$="ÏÏ> 
GOTO 787 

859* T=T+l: GOTO 7 
87 * 

860 :W=l: GOTO 787 
861 :0=2: GOTO 787 
862: N=3: GOTO 787 
872SG0SUB 995* Y= 
886+ INT <202 
): 1=1+1: IF I 
=35LET 1=0: 
GOTO 9 

873: IF < I=15)+<I 
=25)= 1 GOTO 1 
6 

874* GOTO Y 
875: PAUSE “UN ”5 
A$5 " ! " : GOTO 
795 

886: A$=" VAMP IRE" 
:E=10: B=10: 
GOTO 875 
887: PAUSE "=": 
GOTO 872 

888: A$= " EPEE ":Q= 
858: GOTO 996 
389: GOTO 895 
890: A$=" ZOMBIE": 
E=6: B=9: GOTO 
fi 75 

891: PAUSE "UN TR 
ESOR “ : GOTO 7 
00 

892: GOTO 900 
893: A$= " GNOME ":E 
=7:B=6:G0T0 
875 

894: GOTO 891 
895: INPUT “UNE F 
IOLE?"> J$: 
GOTO 100 

896 : A$= " DEMON " : E 
=4: B= 13: GOTO 
875 

897: PAUSE "UN PI 
EGE ! “ : J=U-5: 
GOTO 785 

898: A$=” GEANT ":E 
=5: B= 1U: uül U 
875 

899: GOTO 886 
900:A$="AIL":Q=8 
59: GüTO 996 
90 1 : A$= " CYCLOPE " 
: E=4: B=8: 
GOTO 875 

902: PAUSE "AIJ VO 
LEUR ! " : K=0: 
GOTO 872 


903 : A$= " +SAPH I R " 
: <3=860: GOTO 
996 

904 : A$= " +RUB I S " : 
Q=861 : GOTO 9 
96 

905: A$="+TOPAZE" 
: Q=862: GOTO 
996 

995: 2=2+ ff : Z=ZZZZ 
Z : 2= - 1 HT Z: 
RETU8N 

996: GOSUB 995: D= 
8+ INT <25Z) ' 

997: PR INF Af? " 

5 Dï INPUT 
J$: IF J$="N" 
GOTO 872 

998UF K>=DLET K 
=K-D : BEEP 1: 
GOTO 0 

999: GOTO 872 


L'ALPHANUMERIQUE 
SUR PC 1211 

Pour la première fois une astuce découverte 
sur le PC 1211 (1212) va servir à quelque 
chose, puisque, grâce à celle-ci vous pour- 
rez faire des MID$, LEFT $, RIGHT $, ASC, 

CHR$. 


Ligne 150 


Touche reserve 
N° 1 



sert à saisir la ligne 
(on peut mettre ici n'importe quoi) 


instruction code 50 
(voir tableau joint) 


L'astuce consiste tout d'abord à récupérer le 
caractère curseur (" - "que nous noterons 


MANIPULATIONS 

• Effacer toute la mémoire de l'appareil 
(NEW en mode PRO et en mode RSV) 


• Ecrire en mode PRO 150. FAIRE ENTER 


• Sauvegarder sur K7 ce programme 
CSAVE "A" 


• Relire ce programme en mode RSV (se 
mettre en RSV puis faire CLOAD "A") 


Effacer le point qui se trouve en SHIFT | 


0 


FAIRE SHIFT A > > SPC ENTER 


Et voilà Vous avez en mémoire réserve sur 
SHIFT A le curseur.que vous désirez. 

Apparté ce que vous venez de faire corres- 
pond à ceci : 


Ce caractère ~ est en fait une variable qui 
correspond à la moitié de la variable V. 

Si vous mettez une valeur dans ~ et que 
vous regardez V des renseignements sur 
la structure du nombre qui se trouve en ~ 
vous seront donnés (Signe exposant 
mantisse). 

La structure des variables est la même que 
celle du PC 1251, expliquée dans le N 0 6 du 
bulletin. 

Ce qui est intéressant c'est le codage de ~ 
$ dans V. 

MANIPULATIONS : 

V = 0 ~$ = "ABC" 

V^O.OOO n 5152 

En décomposant cette variable numérique on 
peut récupérer le code interne des lettres A 
et B (2 premiers caractères de ~$). 

Etudiez les propriétés de —, ~ V et V$ 
grâce à ce petit programme. 



GOSUB 1 

On met quelques choses dans A$, on appelle 
ce sous-programme et on retrouve les codes 
des 4 derniers caractères de A $ dans les 
variables B C D E. 

GOSUB 3 

Même principe, mais permet d'obtenir les 3 
premiers caractères de A$. 

GOSUB 4 

Même principe, des codes dans B, C, D et 
E, et on écrit en position 4, 5 et 6 de A$. 

Amusez-vous bien et essayez le Master Mind 
qui utilise ce principe. 

Richard THIBERT 


i:V$=A*îB=?:V= 
n : ?=B 

" 2* B=E5V: C=E2B- 
E2+INT B*.D=E 
2C-E2+INT Cs 
E=E2D-E2*INT 
D:B=INT B.*C= 
INT C : D= I NT 
Ii : RETURN 
3:V=Q!?*=A$: 
GOTO 2 

4: V=i 1 11+C.-E2+ 
D • E4+E'E6î B= 
Vf=A$s ?=Bs 
A$=V$: RETURN 

TOUTS LES <?> SO 
NT LE CODE 50 <P 
OINTEUR) 


CODE 10 ? 

CODE 11 

CODE 12 “ 

CODE 13 ? 

CODE 14 ! 

CODE 15 4 

CODE 16 

CODE 17 — - ¥ 

CODE 18 * 

CODE 19 — n 

CODE 20 ? 

CODE 21 ? 

CODE 22 ? 

CODE 23 ? 

CODE 24 ? 

CODE 25 ? 

CODE 26 

CODE 27 ? 

CODE 28 ? 

CODE 29 ? 

CODE 30 < 

CODE 31 > 

CODE 32 c 


CODE 33 < 

CODE 34 = 

CODE 35 + 

CODE 36 

CODE 37. * 

CODE 38 

CODE 39 

CODE 40 0 

CODE 41 1 

CODE 42 2 

CODE 43 3 

CODE 44 4 

CODE 45 5 

CODE 46 6 

CODE 47 7 

CODE 48 8 

CODE 49 9 

CODE 50 ? 

CODE 51 8 

CODE 52 B 

CODE 53 C 

CODE 54 D 

CODE 55 — E 

CODE 56 F 

CODE 57 G 

CODE 58 H 

CODE 59 I 

CODE 60 P 

CODE 61 Q 

CODE 62 R 

CODE 63 3 

CODE 64 T 

CODE 65 U 

CODE 66 V 

CODE 67 W 

CODE 68 X 

CODE 69 Y 

CODE 70 ? 

CODE 71 ? 

CODE 72 ? 

CODE 73 ? 

CODE 74 ? 

CODE 75 ? 

CODE 76 ? 

CODE 77 ? 

CODE 78 — ? 

CODE 79 ? 

CODE 30 ? st£ p 

CODE 81 ?Tp£<v 

CODE 32 >= 

CODE 33 < = 

CODE 84 <> 

CODE 35 ? SP 

CODE 36 ? s p 

CODE 87 ? R vn 

CODE 88 ? w ê w 

CODE 89 

CODE 90 TO 

CODE 91 STEP 

CODE 92 THEN 

CODE 93 ?-?■' 

CODE 94 ? <1 ' 

CODE 95 ? O 

CODE 96 ? S* 

CODE 97 ? S p 

CODE 98 ? Rt 'W 

CODE 99 ?næv 



MASTER MIND 

Ce programme utilise l'astuce (Géniale) de 
l'A$, il n'utilise pas directement le sous- 
programme mais presque. 

Que fait ce Master-Mind de « Terrible » ? Il 
permet de jouer (sur 10 coups) avec 3 ou 6 
signes qui sont 01 23456789 en nor- 
mal et () < > = + -/* 101 2345678 
9ABCDEFGHI avec l'option Alpha. 

Notes : Les 0 devant les nombres sont obli- 
gatoires, le programme opère certaines véri- 
fications mais pas toutes. A la fin de cha- 
que jeu le programme vous demande vos ini- 
tiales (2 lettres) et modifie si nécessaire la 
moyenne de vos parties et le classement 
général (10 joueurs différents maximum) qu'il 
affiche par ordre décroissant. 


Faire en mode DEF : 

SHIFT] |~a| pour commencer, puis la 


seconde fois si on rejoue et que l'on est le 
même jo ueur faire : 

I SHIFT I fsl 


Les ? qu'il y a dans le listing sont en fait des 
Pour les mettre dans le listing faites : 


SHIFT | [Â1 puisque ce caractère a été mis 


i DQ\/ 


PROGRAMME UTILI- 
SANT 1176 OCTETS 
ET 54 MEMOIRES 


A CODE 1 
B CODE 2 
C CODE 3 
D CODE 4 
E CODE 5 
F CODE 6 
G SIGNE 1 
H SIGNE 2 
I SIGNE 3 
J SIGNE 4 
K SIGNE 5 
L SIGNE 6 
M 3-6 SIGNES 
N CODES >= N 
0 CODES <= 0 
P COUPS 
Q BROUILLON 
R BROUILLON 
S BROUILLON 
T BROUILLON 
U BROUILLON 
V MEMOIRE SP 


14 

X ALLEA 
V FIN TABLEAU 


NEXT QïGOTO 
30 


Z * 

A< 

A< 

A< 

A< 

A< 


27 ) M. 

28 ) P. 


29 

30 

31 


* 

H. 

P. 


10!"A"CLEAR *Y= 

23: IHPUT “UN 
NOMBRE :"»X 
:X=X/E7-IHT 

<X/E7> 

20:BEEP 4SPRINT 
" master-wi 
ND" 

30: "S"P= ! 1 ! N=4Q* 
0=49: 0=9 
40: INPUT "3 OU 
6 SIGNES 
M»“AVEC ALPH 
A <0j1> : u 5R 
50: IF M< >31 F M 
OéTHEN 40 
60: IF RLET N=30 
: 0=59:0=28 
?n:pRINT "VS JO 
UEZ AVEC"? 
USING H *#"?M 
ï“ SIGNES" : 

IF RPR INT "E 
T OBSIQN ALP 
HA 11 

80: FOR R=1T0 M5 
X=X+ïï:X=XXXX 
X:X=X-INT X: 
A<R)=INT QX+ 
N+<QX>=20>: 
NEXT R:BEEP 
1 

90: IF lt=6INPUT 
“6 SIGNES 
?Q$ 

100: IF M=3 INPUT 
"3 SIGNES *“ 
?8f 

i io: v=os ?$=Qf* ©= 

E7V-15500*H= 
E2G-E2*1NT G 
ï I=E2H-E2* 
INT H:G=INT 
G:H=INT H 
120: IF M=6LET Vf 
=Q$:R=?sV=0* 
?=RîJ=E5V:K= 
E2J-E2*INT J 
: L=E2K-E2* 
INT K* J=INT 
J:K=INT K:L= 
INT L 
130:R=7 

140* IF <A<RXN)+ 
<A<R)>0)THEN 
90 

150*R*R + 1 ! IP R< “ 
M+6THEN 140 


160:R=0:S=0:F0R 
T=1T0 M* IF A 
<T)=INT A<T+ 
fiU ET SsS+1 _ 
170: FOR U=7T0 M+ 
6:1F A<T)=A< 
U)LET R=R+i: 
A<U>=A<U>+. 1 
:U=99 

180: NEXT U: NEXT 
T: IF S=MBEEP 
4 

1905BEEP 1 SPRINT 
USING 

P5":"SUSING 
**««'* 5 R?S5 “ 

"5Qf: IF S=M 
THEN 240 

200:P=P + 1 : IF P<= 
10THEN 90 
?in:BEEP 4:N=0:V 
=111 1+A-E2+B 
/E4+C / E6:Q=? 
•Vf=" : "*?= 

Q: Uf=Vf s V=0 
220: IF M=6LET V= 
1111+D/E2+E/ 
E4+F/E6: Q=? : 
Vf=“ ":?=Q 
230:PRINT "CODE" 
;US5Vf 

240: INPUT “INITI 
ALES : " ? Qf 
250: S=26 
260:1F Af <S)=Qf 
THEN 290 

27flîS=S+3:IF S<= 
YTHEN 260 
280: Y=Y+3:S=Y 
290: Af <S > =Sf ! A<S 
+1>=<A<S+1>* 
A<S+2>+<0-N> 
' s M/P> / <A<S+ 2 
>+l>: A<S+2>= 
A<S+2>+l 

300: PR INT "CLASS 
EMENT" 

XlOsFOR Q=27T0 Y 
STEP 3: FOR R 
=QTQ YSTEP 3 
320: IF A<Q»=A<R 
)NEXT R : NEXT 
QsGOTO 350 
330 : Sf =Af >' 0- 1 > * T 
=A<Q>:U=A<8+ 
15:Af<Q-l>“8 
$<R-1>:A<Q>= 
A<R>sft<Q+0* 
A<R+1> 

340: Af <R- 1 >=Sf* A 
^R>=T:A<R+1) 
=U: GOTO 320 
350: FOR Q=26T0 Y 
STEP 3:R=A<Q 
+l):S=<Q-23) 
■•3: PR INT 
USING 

5 M : " » USING " 
UtfWtîOf**» 
R5" “JA$<Q>* 


MASTER-MIND 
./A JOUEZ AVEC 6 
SIGNES 

-T OBSION ALPHA 


1! 


55 

6 : 

7 

8 
9 

10 

;:ODE 


1 1 
1 0 
2 0 
2 1 
2 2 
1 1 


A12BCE 
O -s** 

034567 
AK 562 
A-5566 
AA— 55 
A6FGHI 
A6F+/3 
A6+G~ 
A6+H^ 


- A0+ =H6 

LASSEMENT 
U 0 TR 



LOGICIELS D'APPLICATION 


° yaz °J eZ ' braves gens - gue le s lanciers, 
comptables et cadres de tous bords jettent 
eurs gommes douces et (eursc^nsn^ 
bien affûtes a la poubelle, suivis de près de 
a toute nouvelle calculatrice dernier cri, voici 
la panacee Naguère, il n'y a pas si longtemps ' 
encore, il était courant de rencontrer à une 
eure avancée de la nuit, un homme assailli 
de nombres, s'escrimer en combats héroï- 
ques face aux colonnes d'un bilan hostile ali- 
gnées sur un papier qui ne demande qu'à se 
froisser au moindre coup de gomme. Et ne 
parlons pas de la calculatrice qui perd la 
mémoire au plus mauvais moment, comme 
toujours qui comprend toujours de travers 
les nombres qu'on lui tape, et dont les tou- 
ches ne sont jamais placées au bon endroit. 

Et cette traîtresse tombe en panne de piles 
justement le soir où vous en avez besoin 
Heureusement, tout ceci n'est plus qu'un 
mauvais cauchemard et MULTIPLAN rem- 

, P f e .rï à la fois la Somme, le crayon et 
la feuille de papier. 

Les feuilles de calculs ont pris en quelques 
années une telle importance dans la vie' 
d une PME qu'elles ont bien souvent été la 
cause d'un achat de micro-ordinateur par les 
chefs d'entreprises. 

Venons-en au fait ! Pour les « ceusses qui 
ne savent pas de quoi qu'on cause », je décri- 
rais une feuille de calcul comme étant une 
succession de colonnes ou de lignes, dans 
lesquelles on place des nombres ou des for- 
mules de calcul de son crû. Si l'on modifie 

un nombre, automatiquement, toute la feuille 
est recalculée^ Pour donner un exemple, ima- 
ginez vous changer tous les prix d'un tarif 
dépendant du cours d'une monnaie tous les 
m°' s , MULTIPLAN vous effectue la mise à 
jour d e ce tarif au rythme de 32 opérations 
par seconde, pour vous donner une idée du 
gain de temps. 

MULTIPLAN met à la disposition de l'utilisa- 
teur 63 colonnes de 255 lignes et un éven- 
tail de possibilités époustouflant. En vrac je 
ne citerai que : la copie ou déplacement de 


cellules ou groupes de cellules et de leurs for- 
mules attenantes, intitulés alphanumériques 
avec traitement de chaînes de caractères 
calculs avec une impressionnante batterie dé 
formules mathématiques et trigonométri- 
ques, classement par rapport à une colonne 
effacement de lignes ou de colonnes, fenê- 
trage de I écran et recopie d'une partie d'une 
feuille dans un autre fichier feuille, etc. Le 
tout est commenté dans un manuel intéqré 
au logiciel qui apparaît lors de l'appui sur la 
touche « ? ». Ce manuel s'ouvre toujours à 
a page a laquelle est commentée la corn- 
mande sur laquelle on bute 
et dont on n'est plus sûr 
de la syntaxe 
ou des subtilités. 


", pdpier \ 11 se P^sente sous la forme d'un 
classeur dans un boitier plastique transpa- 
rent fume qui peut servir de pupitre. Il est 

™ e " puatre Parties : une introduction et 
installation de multiplan suivi d'un cours 
d inflation, puis une description détaillée des 

r°T commandes ' e t Pour finir, il con- 
tient quelques annexes bien utiles pour les 

Le produit a des limites qui sont dues aux 
“-deson élaboration. Tournant 

eiîinp H 3 b f e , de données ' Pardonner une 
feujle de calcul rapide, immédiatement maî- 
trisée par « n importe qui », Microsoft a par- 
faitement réussi son objectif : MULTIPLAN 
es le maître incontesté des tableurs et cara- 

France" 1616 ^ b ° X '° ffice des lo 9 'ciels en 
Bernard EDOUARD 







B'istes, rassurez-vous, vous n'êtes pas oubliés. Votre courrier très rare ces derniers 
mois, a provoqué un grand vide dans le N° 7, Nous nous rattrapons ce mois-ci. 
Beaucoup d'astuces et d'aides à 1 la programmation, un superbe programme de C.A.O. 
en 3 dimensions et une logithèque réactualisée. 

Nos efforts et votre courrier feront vivre, se développer, et s'enrichir les pages qui 
vous sont consacrées. 


ASTUCES 


Les astuces suivantes concernent l'interpré- 
teur BASIC CASETTE SB 5510 dont le pro- 
gramme utilisateur commence à l'adresse 
S511C. Si votre version est différente il vous 
faudra rechercher les adresses correspon- 
dantes qui sont, en général très voisines de 
celles indiquées. 

TOUCHES BLEUES 

Il est possible de préprogrammer plusieurs 
instructions sur une même touche bleue. Si 
l'on fait DEF KEY ( ) = LOAD:RUN par 
exemple, on s'aperçoit que les deux points 
et ce qui suit ont été remplacés par des espa- 
ces. Pour obtenir plusieurs instructions faire : 
DEF KEY ( ) = LOADIRUN 
L'interpréteur remplace le point d'exclamation 
par deux points et conserve ce qui suit. 

AUTO RUN 

POKE $3CFD,6 et POKE $3CFE,$1F avant 
LOAD chargent le programme et le mettent 
en route. 

$3CFD et 3CFE contiennent l'adresse de 
saut lorsqu'est chargé le programme ; on 
remplace $ 1B7C par $1F©6 adresse du RUN 

LOAD + 

Astuce permettant de chaîner plusieurs pro- 
grammes, l'un après l'autre, sans effacer le 
ou les précédents : 

Charger d'abord le programme aux numéros 
de lignes les plus petits. Puis, en mode direct, 
faire : 

POKE $198F,$C9 CR 

POKE $3CE5,PEEK ($4F0E)-2 : POKE $ 

3CE6, PEEK ($4F0F) CR 

POKE $1B12, PEEK (§4F©E)-2 : POKE $ 

1B13, PEEK ($4F©F) CR 


Après ces modifications, un LOAD chargera 
un programme après le précédent. Cette 
astuce ne permet pas de fusionner deux pro- 
grammes. Si le deuxième programme chargé 
contient une ligne inférieure aux précéden- 
tes, cette ligne sera exécutée après ; de 
même s'il y a plusieurs lignes ayant le même 
numéro, toutes seront conservées. 

Si l'on veut charger un troisième programme 
après les deux premiers, il faut de nouveau 
avant LOAD retaper les différents POKE, le 
premier n'est plus nécessaire. 

Lorsque les chargements sont terminés, il 
faut replacer les valeurs initiales un des sous 
programmes modifiés étant utilisé par 
SAVE: 

$ 198F $21 
$ 3CE5 et 1B12 $1C 
$ 3CE6 et 1B13 $51 

$ 198F adresse du sous programme utilisé 
par NEW 

$ 511C adresse du début du programme 
BASIC pour l'interpréteur possédé 
$ 4F0E et 4F0F contiennent la dernière 
adresse du programme BASIC +2 présent 
dans la mémoire. 


ON ERROR GOTO 

Le BASIC SB 5510 ne contient pas, semble- 
t-il cette instruction, prévue pourtant dans 
l'interpréteur. 

En début du programme BASIC faire : 

• NL= n° de ligne auquel on souhaite un 
branchement en cas d'erreur 

• POKE $5118, INT (NL/256) : POKE$5117, 
NL-PEEK($5118)* 256 

$ 13AF contient le numéro de l'erreur 




$ 13AF et 13B0 contiennent le numéro de 
la ligne dans laquelle il y a eu erreur, on peut 
donc programmer : 

NL ? "Erreur''; PEEK ($ 13AF); "en"; PEEK 
($ 13B0)* 256. 

Si, après avoir affiché un message particu- 
lier en fonction de l'erreur, on désire faire 
repartir le programme à un endroit précis, 
faire 

POKE $5116,1: GOTO X 

Si l'on désire faire repartir le programme à 
la ligne erronée, avant ou après, procéder de 
la sorte : 

Implanter d'abord les lignes : 

10 FOR AD = 4944 TO 4949:READ 
V:POKE AD, V:NEXT 
20 DATA 33, 0, 0 , 195, 248, 30 
qui implante à partir de $1350, emplacement 
de Basic interpréter etc. 

Le sous-programme 

1350 2100 00 LD HL, 0000 

1553 C3F8 1E JP 1EF8 
$1EF8 adresse du GOTO n° de ligne, ce 
numéro est stocké dans HL 

On peut alors, après le traitement de l'erreur, 
programmer : 

POKE $ 1351, PEEK ($13AF) : POKE $ 1352, 
PEEK ($13B0) 

POKE $ 5116,5 : USR($ 1350) 

qui va renvoyer le programme à la ligne où 

une erreur a été faite. 

Pour le renvoyer avant ou après il suffit de 
modifier les valeurs pokées en 1351 et 1352 
On peut également implanter ce sous pro- 
gramme en langage machine dans une pre- 
mière ligne REM. 

GET 

POKE $ 2949, $ EF (valeur initiale 01) oblige 
le GET à attendre une pression sur une tou- 
che, il fait l'économie de : 

1© GET T$ : IF T$ = " "THEN 10 
et reste valable pour d'autres GET 
Cette astuce ne fonctionne pas pour une 
variable numérique. 


mm 



DELETE BASIC 


Le BASIC SB 5510 n'offre pas l'instruction 
DELETE qui permet d'effacer en une seule 
fois une partie d'un programme. On peut tou- 
tefois l'obtenir de la façon suivante : 
entrer au début du programme dont on sou- 
haite effacer des lignes, 

5 POKE $1309, $C9:INPUT"PREMIERE 
LIGNE A EFFACER" ; LD : INPUT "DER- 
NIERE LIGNE A EFFACER " ; LF : FOR 
L=LD TO LF 

6 POKE$ 4AD1, INT (L/256): POKE $4AD0 
L- 

PEEK($4AD1)*256 : USR($12E6) : POKE- 
$1309, $3A : END 

UTILISATION 

Il n'est pas nécessaire que ces lignes 5 et 6 
soient les deux premières mais il est indis- 
pensable qu'elles se situent avant la partie 
du programme à effacer. Il est conseillé de 
les faire précéder de 

1 RUN 10 la ligne 10 commençant le 
programme. 

Lorsqu'on demande l'exécution des lignes 5 
et 6, ce DELETE attend le premier numéro 
de ligne à effacer variable LD, puis le dernier, 
variable LF, ces lignes pouvant ne pas exis- 
ter, et supprime la partie du programme 
souhaitée. 

FONCTIONNEMENT 

En mode direct, lorsqu'on tape un numéro de 
ligne suivi de CR, le logiciel BASIC stocke ce 
nombre dans les octets $ 4AD0 (poids fai- 
ble) et $ 4AD1 (pds fort) puis efface, si elle 
existe, la ligne de programme commençant 
par ce numéro ; enfin il y a retour au Ready 
et attente d'un ordre. 

On utilise cette partie du ligiciel avec le 
USR($12E6) après avoir « poke » le numéro 
de ligne, L, en EAD0 et 4AD1. Le $C9, code 
du RETURN, permet de renvoyer au pro- 
gramme appelant donc à l'instruction BASIC 
suivant le USR, au NEXT. Là, L sera incré- 
menté et on recommencera avec la boucle 
tant que L ne sera pas plus grand que LF. 


On le voit la manière de procéder est méca- 

l'octet $ 1177 

nique et quelque peu aveugle puisqu'on va 

255 


effacer des lignes qui n'existent pas. Si la par- 

254 

touche TAB 

tie à supprimer comprend des numéros de 

253 

barre d'espacement 

ligne à incrémentation constante, on peut, 

251 

touches CR, ENT 

bien sûr utiliser un STEP avec le FOR TO 

247 

curseur t 

NEXT. 

239 

curseur | 

Toutefois ces lignes de DELETE, très cour- 

223 

curseur ■+- 

tes, offrent une grande simplicité 

191 

curseur -► 

d'utilisation. 

127 

touche BREAK 


l'octet $ 1178 


255 



254 

/ 

Comment programmer le déplacement en 

253 

A 

continu d'un objet, canon, char, etc., sur 

251 

B 

l'écran ? 

247 

C 

Avec le GET habituel, l'utilisateur est obligé 

239 

D 

de frapper sur une touche autant de fois qu'il 

223 

E 

y a de déplacements désirés. . 

191 

F 

L'idéal serait que cet objet se déplace tant 

127 

G 


que l'utilisateur maintient une touche 
appuyée. 

Un moyen possible : 

PEEK($1174) contient : 

255 si aucune des touches suivan- 
tes n'est frappée 

254 si touche Fl appuyée 

253 si touche F2 appuyée 

251 si touche F3 appuyée 

247 si touche F4 appuyée 

239 si touche F5 appuyée 

223 si touche F6 appuyée 

191 si touche F7 appuyée 

127 si touche F8 appuyée 

l'octet $ 1175 : 

255 

254 
253 
251 
249 
239 
223 

191 + 

127 

l'octet $ 1176 

255 


l'octet $ 1179 
255 


254 

253 

251 

247 

239 

223 

191 

127 


H 

I 

J 

K 

L 

M 

N 

O 


l'octet $ 117A 
255 


touche F9 
touche F10 
8 


9 

00 


clavier 

de 

droite 


254 

253 

251 

247 

239 

223 

191 

127 


P 

Q 

R 

S 

T 

U 

V 

W 


l'octet $ 117B 
255 


X 

Y 

Z 


254 

253 

251 

247 

239 

223 

191 

127 


0 

1. 

2 

3 

4 

5 

6 
7 


clavier 

de 

droite 


254 

253 
251 
247 
239 
223 
191 
127 

l'octet $ 117C 

255 

254 0 

253 1 


251 2 

247 3 

239 4 

223 5 

191 6 

127 7 

l'octet $ 117D 
255 

254 8 

253 9 

251 



239 

223 <g> 

191 [ 

127 

l'octet $ 117E 
255 

254 J 

Exemples : 

10GETA$: IFPEEK ($1178) = 253THEN 
? "A";: GOTO 10 


il y aura impression de A tant que la touche 
sera maintenue appuyée. 

100GET A$ : IF PEEK ($ 11771=253 THEN 
100 

le programme tournera « en rond » tant que 
la barre d'expacement sera maintenue 
appuyée, comme dans une demande de 
listing. 


COPIE DU MONITOR 
ET DU BASIC 


Le bulletin SHARP n° 1 indique comment 
faire une copie du MONITOR et du BASIC 
mais il faut disposer de 64K de MEV. 

Voici une manière de pocéder avec 32K 

PRINCIPE : 

Tout en conservant le Monitor aux adresses 
$0000 à $121F, on déplace en commençant 
par le bas les logiciels MONITOR et BASIC 
de façon à ce qu'ils soient recopiés à partir 
de l'adresse $3000. Ils vont donc venir 
recouvrir une partie du ligiciel BASIC. Puis, 
toujours sous contrôle du MONITOR on sau- 
vegarde sur cassette cette partie de 
mémoire. 

MARCHE A SUIVRE : 

Allumez le MZ et charger l'interpréteur. Il faut 
connaître la longueur de ce dernier. Pour cela 
un moyen possible : passer sous contrôle du 
Monitor, puis exécuter l'ordre L qui va char- 
ger à nouveau la cassette. Dès qu'apparaît 
FOUND BASIC SB 5510, presser la touche 
Break et demander (avec M ou D) le contenu 
des octets $10D2 et $10D3, ceux ci contien- 
nent la longueur de l'interpréteur. 

Vérifier ensuite que l'octet $OOAE contient 
01 et non C3, sinon le modifier. 

Puis à partir de $7F00 implanter le sous pro- 
gramme suivant : 

7F00 21 

7F01 contenu de 10D3 


7F02 contenu de 10D2 
7F03 11 

7F04 contenu de 10D3 
7F05 contenu de 10D2 + 30, en 
hexadécimal 

7F06 01 

7F07 contenu de 10D3 
7F08 contenu de 10D2 + 01 

7F09 ED 
7F0A B8 
7F0B C9 

Demander l'exécution de ce sous programme 
(par J$ 7F00), retour au Monitor. 

Modifier le contenu de $ 30AE, 01 par C3 
Enfin, sauvegarder cette partie de mémoire 
S 

FILE NAME copie 
S -ADR $ 3000 

E-ADR $ contenu de 10D3+30 et contenu 
de 10D2 

J-ADR $ presser la touche CR 
Ls copie est faite, on peut tout de suite véri- 
fier son bon fonctionnement puisqu'avec les 
modifications qui ont été faites l'appareil est 
inutilisable pour un programme BASIC. 

INSTRUCTION DEL (DELETE) 

fonctionnement : 

DEL 10 efface la ligne 10 

Sâ 


DEL 10-50 efface les lignes 10 à 50 
DEL -100 efface toutes les lignes du pro- 
gramme jusqu'à la ligne 100 

DEL 100- efface toutes les lignes à partir de 
100 

DEL efface toutes les lignes (même instruc- 
tion que NEW) 

POUR l'ajouter au BASIC SB 5510 : 


1. Modifier la syntaxe de BOOT (non utilisé) 
$ 16A5 20 


16A6 

44 

D 

16A7 

45 

E 

16A8 

CC 

L 

2. Modifier l'adresse 


$ 2851 

C3 6A 49 

JP 496A 

ou remplacer 28E1 dans la table des adres- 

ses par 496A, 


$ 1C7B 

6A 


$ 1C7C 

49 


3. Modifier le sous-programme utilisé par 

$ 1D00 

C3 33 1D 

JP 1D33 

$ 1D20 

CD 11 05 

CALL 0511 

(1 affichage du listing est un peu plus lent) 

Implanter à partir de $ 1D33 

$ 1D33 

3A 07 1D 

LD A,(1 D07) 

1D36 

FE FF 

CP FF 

1D38 

CA 6F 49 

JPZ 496F 

1D3B 

CD 00 15 

CALL 1500 

1D3E 

C3 03 1D 

JP 1D03 

1D41 

00 



4. Implanter à la fin de l'interpréteur, après 
le contenu des touches bleues 
$ 496A 3E FF LD A, FF 

496C C3 B6 IC JP 1CB6 

496F 2A DO 4A LDHL,(4A DO) 
4972 CD FB 18 CALL 18FB 

4975 09 ADD HL, BC 

4976 13 INC DE 

4977 CD 3D 19 CALL 193D 






0.0-3 D 


1 rem********************************* 

2 REM* ********* MINI CAD ************* 

3 REMS******** Jean Millet *********** 

4 REM********** Août 1983 ************ 

5 REM********************************* 

10 DIMX<200) ,Y(200) . Z <200) . L1 (200) , L2 (200) .T* (3) :NP-OsNL=0 

15 T* ( 1 > “"Fl FACEUUBMI" * T* (2) = "F2 mr gllUIIBI I Tl f~] T~ HAUT aftHMIM " i F 

ORI * 1 T032 s RE ADN! C*«C*+CHR* ( N ) s NE XT s X 0=200 s Y0= 1 1 5! M= 1 s R0=56 s F0=0 

16 DAT AO, 1,33» 17,9,5,2, 124,2,5,9, 17,33,1,0,0,0,0,8, 16,32,64, 128, 124, 128,64,32, 1 
6,8, 0, 0,0 

20 PRINT"*" | TAB< 12) î “MINI C. A. D. 4" x PRINTSTRINS* ( , 40) ! R*-" " : AF*=STRING* ( "*" , 1 
9) iPRINT"*" | TAB <8) I AF*î 

30 I - H 80SUB50 1 PR I NT M CRE AT I ON " 5 i G0SUB50 SPRINT” LECTURE “ î * BDBUB50 SPRINT" ENREB I STR 
EMENT"? * S0SUB50 SPRINT” PERSPECT I VE 11 J * G0SUB50 s PR I NT ” E X PL I CAT I ONS ” S s 60SUB50 
32 PR I NT "F I N M I « PR I NTT AB ( 27 ) J " * " s PR I NTTAB < B ) ; " * " ; TAB ( 27 ) 5 " * " s PR I NTT AB ( B > î AF* 5 TAB 
(27) I “*»***" I "CHOIX ?" 

40 BETR « ON 1+RB0T040, 150,5000,5500,6000,8000, 100SB0T040 

50 PR INTTAB ( 27 ) I " * " « PR I NTTAB < 8 ) 1 " * - 1 TAB ( 27 ) I " * " s PR INTTAB ( 8 ) ? " * "S STR* ( I ) ? SI 

-I+l« RETURN 

100 BRAPHIl.C, 1 2, C SPRINT “•"s END 

150 PRINT"*" I «GOSUBIOOOS PRINT" POINT "SPRINT "*fl“moire"sPRINT"Bj»ppression" s PRINT 
" JNPPe I " * PR I NT " JÉor rec t ion"! PR I NT " «LIGNE" s PR INT "«B*- ace "s PRINT 
160 PRINTSTRINB* ( "— " , 1 1 > I s PRINT"-* " SPRINT"ID*" s FOR 1 = 1 TOI 1 s PR INTTAB < 1 1 ) î " I ” s NEXTs P 
RINT"****N-" * PRINT"**X-" s PRINT"*Y-" s PRINT"*Z-" 

170 BRAPHI2, C,I1,C,012 

180 B0SUB800 s CURSOR4 , 1 5 1 PR I NT " *«*■" ; NP 

1 90 QO8UB990 « CURS0R3 , 19- < M- 1 > - ( M=3 >+(M=2> SPRINT" +++" î XC* ( < M=2 > - (M=l > - (M=3) ) 

195 CURS0R3,2t-(M-l)-(M-2)+3*(M-3)*PRINT" «m*»*» S YC* < (M-3) - <M=1 ) - (M-2) ) sCURSO 

R3, 17- (M-l) -3* (M-2) -5* (M-3) «PRINT" eeee"?ZC 

200 8RAPH012 

205 BETR*i IFR*«" "THEN205 

220 R-ASC (R* ) s IFR-53THENXC-0I YC=Os ZC-O* S0T0370 
222 IFR-25THENF0-0I BRAPHOOl B0TD20 

225 IF <R>49> * (R<57> THENXC=XC- (R=54) + <R=52) s YC=YC- (R-56) + <R=50> s RO=Rs B0T0370 
227 IF(R-43)«-(R-45)THENAF*-"**B"*GOSUB1500sGOT0400 

230 SRAPH01 * IF (R-77) * (FO-O) THENAF*="BUi" s G0SUB1500S G0SUB1200S S0T0370 
240 I FR— 82THENAF*— " U" S 60SUB 1 500 s GOSUB 1 300 i X <0> -X ( I ) s Y <0> -Y < I) s Z <0) -Z ( I ) s N-0* G 
OSUBlOlOt XC-X s YC-YI ZC-Zs BOT0370 
250 I FR-83THENAF*- “MB" s GOSUB 1 500 s GOSUB 1 300 s GOTO 1 400 

260 IF (R-67) * (FO-O) THENCURS0R6 , 12s PRINT"*" s G0SUB1 3O0s N=I s G 0 SUB 101 Os NO-Ns FO-l s XC 
-XI YC-YS ZC-ZS GÛT0190 

270 IF (R-67) * (FO-l ) THENCURS0R6 , 12s PRINT GDSUB1 100 s FO-O s GOTO 190 

290 0RAPHI1 

300 IF (R-B4) * (FO-O) THENAF*- " WHI" s GOSUB 1500 «GOSUB 1300 s NL-NL+1 s L1 (NL) -I s AF*-"Wfl 
V < GOSUB 15001 60SUB1300S L2 (NL) -Il AF*—” "s GOSUB 1500s I-NLsGOSUB900sG0T0190 

■ 350 N— OiGOSUBl ÎOOS IF (R>15) * (R< 19) THENM— (R=16) -2* (R-17) -3* (R-18) s GOSUB ÎOOO s GOTO 
170 

370 AF*-" "s GOSUB 1500s IFF0-0THEN190 

380 N— NOS 808UB 11 001 GOTO 180 

400 BETV*I IF (V*< "O" > ♦ ( V*>"9" ) THEN400 

410 V-VAL (V*) -20* (V*-"0" ) -9* (V*-" 1 ” ) s XC-XC-V* ( (RO-52) + (R0=54) > * < (R=45> - (R-43) ) s 
YC-YC-V* ( (RO— 50) ♦ (RO— 56) ) * ( (R-45) - (R-43) ) I GOT0370 

799 REM********* TRACE ************** 

800 8RAPHI 1 , C, 01 1 L INEXO, Y0-90, XO, YO+90* LINEX0-90, YO, X0+90, YO 

810 CURB0R25, 2s PRINT" e"|CHR* (-90* (M<3) > 1 «CURS0R12, 14« PRINT" p"?CHR*(- 88* (M=2> ) 
IICURSOR26, 241 PRINT" «■"?CHR*(-88*(M-3) ) | s CURS0R37 , 14 

820 PRINT" CHR* (—89* (M< >2) ) S «FORN— ITONPsGOSUBlOlO* SETXO+X, YO—Ys NEXTs FOR 1 = 1 TO 

NLt 808UB900I NEXTIRETURN 

900 N— L1 (1)1 80SUB1010I X 1-XO+X s Yl-YO-Ys N-L2 ( I ) s GOSUBlOlOs LINEX 1 , Y1 , XO+X , YO-Ys RET 

URN 

989 REM********* CURSEUR *********** 

990 GRAPHI2,CIP0SITI0N193+XC, 1 08-YCs PATTERN— 16,C**RETURN 

999 REM********* EN-TETE *********** 

1000 PRINT"U"I IFORI— 1T03SPRINTMID* (T* ( I ) ,1-7» (M— I > ,7) ? " " I s NEXTs PRINT" F10 SO 

RTIE"* PRINTSTRINS* ("-", 39) «G0SUB990* N-0* G0SUB1010 

1005 XC— X l YC— Y s ZC-Z s G0SUB99O8 RETURN 
1009REM********* SUB TRANSFORMATION* 

ÎOIO X— (M»1)*Y(N)+(M-2)*X(N)-(M-3)*Y(N> S Y— (M-l ) *Z (N) - (M«2> *Z (N)+(M=3)*X (N) s.Z— 
- <M— 1 ) «X (N) - (M-2) *Y (N) - (M-3) *Z (N) s RETURN 
1 ÎOO X (N>— ZC* (M-l ) +XC* (M-2) +YC* (M-3) s Y (N) — XC* (M< >2) -ZC* (M-2) s Z (N) —YC*(M<>3>- 
ZC* (M-3) l RETURN 


1199 REM********* SAISIE ZC ********* 

1200 CURS0R3, 17-(M-1 ) -3* (M-2) -5* (M-3) s I NPUT " " ; Z C s NP-NP+ 1 s N-NP s GOSUB 1 1 00 : CURSOR4 

,15s PRINT” «■«— "|NP«GRAPHI1 s SETXO+XC, YO-YC* RETURN 

1299 REM********* SAISIE N ********** 


1300 CURS0R5, 15IPRINT" " l CURS0R5, I s IF ( I >NP> + ( I< 1 > THENUSR ( *EBE ) s GOT 

01300 

1310 RETURN 

1399 REM********* SUPPRESSION ******* 

1400 IF.I-NPTHEN1420 

1410 F0RJ-I+1T0NP* X (J-l )-X ( J ) * Y ( J-l >— Y ( J) * Z ( J-l ) — Z ( J) SNEXT 
1420 NP— NP— HNO-NL 

1430 F— O IFOR J— 1 TONL s IF(Ll(J)OI> * (L2( J)< >1 ) THEN1460 
1440 IFJ-NLTHEN1455 

1450 F0RK-J+1T0NLSL1 (K-l)-Ll (K) IL2(K-1)-L2(K> SNEXTKS J-NLsF-1 
1455 NO— NO— 1 

1460 NEXTJSNL— NOS IFF— 1THEN1430 

1470 FQRK-lTONLi IFL1 (K) >ITIÆNL1 (K)-Ll <K) — 1 

1480 IFL2(K> >ITHENL2(K>— L2(K>-1 

1490 NEXTS GOTO 180 

1500 CURS0R7, 121 PRINTAF*! RETURN 

4999 REM**«****** LECTURE *********** 

5000 PR INT I TAB (16) I "LECTURE* " s PR INTBTR I NG* ("*",40)1" *»** " s G0SUB5700S ON ERROR 
GOT054O0 

Son.) RUFEN#l,FI*s INPUT#1 ,NPsF0RI— ITONPs INPUT#1 ,X(I),Y(I),Z(I)> NEXTs INPUT«1,NLSF 


OR I = 1 TONL s I NPUT# 1 , L 1 ( I ) , L2 < I ) s NEXT s CLOSE# 1 s G0T020 
5400 0N1- <ERN— 40) — 2* <ERN— 50) G0T05410, 5420, 5430 
54 1 O USR ( «EBE ) s USR ( *5 1 7 ) s RESUME500O 
5420 PRINT"#**PAS DE FICHIER "SFI*SG0T05410 
5430 PR I NT "«««DI SQUETTE S.V.P. ! ! !"sG0T05410 

5499 REM********* ENREGISTREMENT **** 

5500 PRINT" 9" S TAB (13)? "ENREB I STREMENT* " s PR I NTSTR I NG* ( " ♦ " , 40 ) ? " ««*# " S G0SUB57OOI O 
N ERROR GQT05600 

5510 WOPEN#l ,FI*sPRINT#l .NPsFORI- ITONPs PR INT# 1 ,X(I),Y(I),Z(I)S NEXTS PRINT#1 ,NL> F 
OR I - 1 TONL S PR I NT# 1 . L 1 ( I ) , L2 ( I ) s NE XT s CLOSE# 1 s G0T020 
5600 ON 1 - ( ERN-42 > -2* < ERN-50 ) G0T056 10,5620, 5630 
56 1 0 USR ( «EBE ) S USR ( *5 1 7 ) s RESUME5500 

5620 PR1NT"*««IL EXISTE UN FICHIER " ?FI*I PRINT"«FAUT-IL L'EFFACER (0/N)?" 

5625 GETV*s I FV*- " O " THENDELETEF I * s CLOSE# 1 s G0T055 1 0 

5627 IFV*= "N" THEN5610 

5628 G0T05625 

5630 PR INT" «««DI SQUETTE S.V.P. ! ! ! "SG0T05610 

5699 REM********* SAISIE NQM ******** 

5700 PRINT"«« Nom du fichier s "SFI*? sCURS0R20,CSRVs INPUT""? FI*?RETURN 

5999 REM********* PERSPECTIVE ******* 

6000 DIMXO (200) , YO (200) s R-4001 PR— 20s T-Os PT— 10$ F— 0« PF— 10* KO— 160 
6100 PR I NT " ? TAB (14)?" PERSPECT I VE« " 5 PR I NTSTR I NG* < " ♦ " , 40 ) 

6110 PI -if/ 180* Z 1— SIN <PI*F) s Z3— COS (PI*F) s X2— SIN (PI*T) s Y2=C0S(PI *T> * X 1-Z3* Y2I Yl- 
-Z3*X2$ X3— -Y2«Z 1 s Y3— X2*Z1 

6120 CURSORO, 23SPRINTBPACE* (39) SCURSORO, 23s PRINT "DIST -"?RI" AZIMUTH -"?T?" HAU 
TEUR -"S F 

6130 FOR I - 1 T ONP s D-R- ( X ( I ) * X 1 +Y ( I ) * Y 1 +Z ( I ) * Z 1 > S XO ( I ) -K0+2*K0* (XXI) *X2+Y ( I) *Y2> /D 
s YO ( I ) — 100-2*KO* (XXI) *X3+Y ( I ) *Y3+Z ( I ) *Z3) /D* NEXT* GRAPHI 1 , C, 01 ? CM ERROR (OTT06150 
6140 FOR 1 — 1 TONL* X I— XO (L1 ( I ) ) * YI-YO (L1 ( I ) ) I XJ-XO (L2 ( I ) ) * YJ-YO (L2 ( I ) > s LINEX I , YI , X 


J, YJS G0TQ6160 
6150 RESUME6 160 
é>lÂO NEXT 

6170 GETR*s IFR*=" "THEN6170 
6180 IFR*-"F"THENGRAPHIl,CiG0T020 

6190 R— R— PR* ( (R*— " + " ) •’- (R*— "-" ) > s F— F— PF* ( (R*-"8“ ) - (R*«"2" > > * T-T-PT* ( (R*-"6" > - (R* 
— "4") ) SG0T06110 

7999 REM********* EXPLICATIONS ****** 

8000 PRINT"*" ? TAB ( 14) î "EXPLICATIONS*"* PRINTSTRINS* ("♦"* 40) s C0NS0LES4. 24 

8010 REST0RE9000 s IM-12* 80SUBB500S IM-4sG0SUBB500* IM-15S G0SUB8500S I M- 1 2 « GOSUB8500 


s CONSOLESO, 24* GQT020 

8500 FQRI-lTOIMiREADX, A**PRINTTAB(X> ? A*sNEXTiCURS0R10, 24iPRINT"PreBeez une touc 

8510 GETR*s IFR*=" "THEN8510 
8520 RETURN 

, 9000 DAT A3, "SAISIE s les commandes du point.**", O, "JMmoire «mise en memoir 

e du point", 12, "ou se trouve le curseur.” 

9010 DATAO, "On demande la coordonnée manquante. ", O, “( >0 vers l’avant). II y a a 
•f fichage", O, "du numéro du point.*" 

9020 DATAO, "auppressi on * Effacement du point de", 12, "numéro demande.*" 

9030 DATAO, "Bappel «positionne le curseur en un" , 12, "point particulier.* n ,0 

» “®»rrection «Corrige la position du", 12, "point N (curseur)." 

9040 DATAO,"* SAISIE * La commande de ligne.***", O, “8'»c« « Trace un s 

egment entre", 12, "le premier point (Tl) ”,12, "et le deuxieme (T2)«" 

9050 DATAO."* LES DEPLACEMENTS DU CURSEUR**" , 16, "5 s retour a l’origine**" 

, 18, "Déplacement de U ",18," " 

9060 DATA5, “ i — i i — i 8 * vers le haut”, 5, " 181 l + l 2 * vers le bas",5," , - J 

1 — 1 4 s a gauche", 2, " i — i i — i i — ii — i 6 * a droite" 

9070 DATA2, " I4II5I 161 l-|",2, "*- J l — 1 l — 1 •— ‘",5, "r-n ",5, "121 Déplacement 

de n * " 

9080 DATA5, " 1 — 1 ",3, "Il suffit de taper + ou - puis n 

",10,"( l-> 10, 0420 >" 

9090 DATAO, "*", 10, "PERSPECTIVE***", 0, “Vous pourrez tourner autour de l’objet", O 
, "grâce aux touches* «",5, "8 s vers le haut", 5, "2 s vers le bas" 

9100 DATA5, "4 s vers la gauche", 5, "6 s vers la droite**",5, "- « vous rapproche" 
,24, "de 1 'objet", 5, "+ s vous éloigné»", 0, "F « pour revenir au menu." 


Ce programme créé des fichiers sur disquette mais peut etre facilement modifie 
pour fonctionner sur cassette. 
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ASTUCES 


Malgré la nouveauté de ce matériel, le nom- 
bre de possesseurs de MZ-700 membres du 
Club monte en flèche. Vous semblez tous 
avoir les mêmes préoccupations, parmi 
celles-ci voici des astuces pour faire face aux 
problèmes les plus fréquents : 


1. COMMENT FAIRE UNE COPIE DE 
SECURITE DU BASIC ? 

La chose est relativement aisée car un pro- 
gramme de copie en langage machine est 
inclus dans le BASIC : Seul ennui, dès que 
le BASIC est chargé il s'empresse de nettoyer 
la mémoire et d'effacer le programme en 
question. Pour y remédier, il suffit de faire 
un court programme en langage machine qui 
charge le BASIC et va se brancher au début 
de la routine de copie 


Voici comment procéder : quand le MZ-700 
vient d'être allumé 


* 


MC 

: o 

1 

0 


c 

0 

0 

0 

0 

0 

C 

D 

c 

0 

0 

1 

0 

0 

2 

7 

c 

0 

0 

2 

F 

F 

0 

0 

c 

0 

0 

3 

F 

F 

C 

D 

c 

0 

0 

4 

0 

0 

2 

A 

c 

0 

0 

5 

0 

0 

01 

0 

c 

0 

0 

6 



C 

3 

c 

0 

0 

7 



0 

8 

c 

0 

0 

8 



1 

1 

c 

0 

0 

9 

jBREAK 



JC 


-PLAY 


• insérez la cassette BASIC 

• allez boire un café pendant que le BASIC 
se charge. Ne vous inquiétez pas si vous ne 
voyez pas apparaître LOADING SBASIC, la 
lecture doit se dérouler d'un coup, sans mes- 
sage. Ensuite vous voyez apparaître S BASIC 
SAVER HIT ANY KEY il ne vous reste plus 
qu'à insérer une cassette vierge et appuyer 
sur une touche comme vous y invite votre 
MZ favori. 


2. L'INSTRUCTION GET PEUT ELLE ETRE 
UTILISEE SANS QU'ON SOIT OBLIGE DE 
PIANOTER? 

L'inconvénient majeur de cette instruction qui 
saisit un caractère tapé au clavier sans pour 
autant interrompre le programme c'est que 
pour qu'une touche soit prise en compte il 
faut qu'elle soit relâchée puis appuyée. Pour 

i COLOR, , , e :CLS JX--4B ; 
10 GETG$ 

20 IFG$="B ,: THENX r -X+ 1 
30 IFG$="0 ,: THENX=X~ 1 
40 IFG$="!trTHENY--Y-1 
50 IFG$= , 'Si' , THENY=Y+1 
60 SET X, Y, 1+RNDC 1 3*7 

3. LE BASIC CONTIENT CERTAINES 
INSTRUCTIONS DONT LE MANUEL NE 
PARLE PAS QUEL EST LEUR ROLE ? 

En effet, si vous exécutez le programme (2) 
qui force le BASIC à vous dévoiler ses mots 
clés, vous en découvrirez certains qui vous 
sont inconnus : 

• KILL, ERASE ne fonctionnent pas, 

• OR, AND sont dangereux à utiliser car, 
bien que dans certaines conditions ils four- 
nissent un résultat correct et peuvent ainsi 
tromper le débutant, dans la majorité des cas 


vous en rendre compte, tapez le programme 
(1) qui permet de dessiner sur l'écran avec 
les touches du curseur. Cependant une 
rapide recherche dans le BASIC, nous mon- 
tre que tout caractère tapé est stocké à 
l'adresse $005F. Il suffit donc de modifier 
la ligne 10 de la manière suivante : 10 GET 
G$ = CHR$ (PEEK ($5F)). 


T=25 


GOT0 1 0 

leur fonctionnement est anormal, on peut 
cependant les remplacer par * et + ainsi : 
IF A = B AND C = 1 THEN... devient 
IF (A = B)* (C = 1 ) THEN... 
et IF X<0 OR X > 10 THEN... devient 
IF (X<0)+(X> 10) THEN... 

• CLS nettoie l'écran (même effet que PRINT 
« C ») 

• BOOT renvoie au MONITOR en ROM 

• HEXS convertit un nombre en Hexadéci- 
mal (Base 16) ainsi: AS = HEXS (255) : ? 
AS donne : FF READY 


10 AD=$2AF4 

20 AD=AD+1 : IFPEEKC AD3>$80 PRINTCHRSCPEEK 
LAD 3 -$803 -GOTO20 
30 PRINTCHR$CPEEKCAD33 ; :GOTO20 


4. LES JEUX EN LANGAGE MACHINE COM- 
PORTENT DES SONS QUE L'INSTRUCTION 
MUSIC EST INCAPABLE DE REPRODUIRE - 
COMMENT Y ARRIVER ? 

Il faut avoir recours à deux sous program- 
mes en langage machine : 

Le premier s'appelle par USR (68) il met en 
marche le haut parleur la fréquence émise 
doit être rangée en $0A39 (poids faible), et 
$0A3A (poids fort). 

!0 A=1 :B--=55:055:D=1 :E 


Le deuxième coupe le son il s'appelle par USR 
(71). si F est la fréquence de 0 à 65 535, la 
démarche est donc : POKE S A39, F-INT 
(F/256P256, F/256 : USR (68)... boucle 
d'attente ou jeu à sonoriser USR (71). 

Voici un court programme qui crée des bruits 
assez bizarrees. Amusez vous bien et n'hé- 
sitez pas à changer le contenu des variables 
de la ligne 10 pour obtenir d'autres sons. 


-3 :F=. 5 


20 FOR I =AT OBSTEPF :FORJ=CTODSTEPE *POKE$A3 
3 > I > J ^ USR C 68 3 -’NEXTJ , I 
30 USR C 71 3 



E VIDEO 


Il ressort de bon nombre de coups de fil et 
de visites à la permanence du club que la 
majorité d'entre vous n'a pas clairement com- 
pris la structure de la mémoire vidéo soit à 
cause d une méconnaissance de la structure 
interne d'un micro-ordinateur soit par le côté 
nébuleux de la notice sur ce châpitre. 

M 0 7 U ?nn US ^ aPPe,0nS que la mémoire du 
MZ-700 est divisée en octets chacun rangé 

a une ad resse différente. Un octet est un mot 
10 f , b if ? Un ', té élémentaire d'information 

iK u v ! eur minimale est 0 0 0 0 0 
0 0 0 en base 2 ce qui donne 0 en base 10. 

Et sa valeur maximale est llllliii 
(base 2) ou 255 décimal. Et à l'adresse 
mémoire 53 248 se trouve le début de la 
mémoire vidéo des caractères. C'est-à-dire 
qu en 53 248.se trouve le code d'affichage 
voir annexa du manuel) du 1* caractère de 
Ja 1 ligne, en 53 249 le 2 e , en 53 250, le 
3 en 53 288 (c'est-à-dire 53 248 + 40 ), ’ le 

54 247 w 26 li9ne 6t ainSi de Suite - 

54 247 (caractère en bas à droite). On peut 

accéder directement à la mémoire vidéo par 

les instructions : PEEK et POKE 

(ïf 153 248 > ^ le code «frf. 

POKFFiVa?^ en haut à « 
POKE 53 248+500, 223 met le caractère 

r serpent) dans la 500® case de 

I écran (12® ligne 20 e colonne). 

Et de la même façon à l'adresse 55 296 se ^ 

trouve la mémoire vidéo 

des couleurs. Ainsi . 

en 55 296 se trouve \ 

la couleur 1 er caractère^ \ 

en 55 297 celle du r\ 

deuxième etc. V 

La couleur d'un caractère ^^HBI 
est donc codée sur un octet. jMÊEÊ 


Voici la représentation interne : 

Bits 

7 6 5 4 3 2 1 


Usage 

Ej[TcT~c~ 


TTTTT 


Les 3 bits F indiquent la couleur du fond 
es bits C indiquent la couleur du caractère 

Comme vous le savez il y a 8 couleurs : 
UUO = 0 noir 
001 = 1 bleu 

010 = 2 rouge 

011 = 3 violet 

100 = 4 vert 

101 = 5 bleu clair 

110 =. 6 jaune 

111 = 7 blanc 

Les photographes s'apercevront rapidement 
que chaque bit correspond à une des cou- 
leurs primaires (bleu, rouge, vert). 






Ainsi : bleu + rouge = violet 
001 010 011 

quand au bit G il indique de quel jeu de 
caractère il s'agit J 

Si G = 0 caractères normaux 
Si G = 1 : 2® générateurs de caractères 

exemples*' * 

? PEEK (55 296) donne code couleur du 1® 
caractère. 

POKE 55 297, 98 fixe le deuxième Caractère 
e la première ligne de l'écran en jaune sur 
fond rouge (en effet 98 = 01100010). 

™ E83 248 +MO,W:POKE 55 296 + 

S T me i«? e SOUCOU P e volante (code 

OOllonn 6n , Vi0 ' et sur fond noir 148 
- 0011000) en milieu de l'écran. 

PEEKI+12S SL 2 ?? T °55296:POKE I, , 
PEEKI+ 128 . NEXT I convertit un écran rem- 

P J de caractères normaux en caractères du 
2 générateur (car 128 = 10000000) I 

Une autre adresse intéressante pour la cou- 
, ‘ adresse 93- C'est là qu'est rangée la 
valeur courante de la couleur. Ainsi à l'alfu- 

5 e , PEEK f93 > donne 113 (01110001) 
cest-a-dire blanc sur bleu. Vous pouvez donc 

c~ facilement au 2e générateur de 
POKE 93, PEEK (93)+ 128 : ? "BONJOUR" 

creux, affiche " B ° UJ ° UR " en c “ aa 

Simon CHAGNOUX 








S*** 



programmes 


\so^ 

10 REM********* ISOLA **************** 

20 GQSUB640 

30 DIMTC1003,DC83,PC83 :FORI=0TO9 *TC I 3=3 = 
T C 90+ 1 3 =9 2 NEXT : FOR I = 1 0TO80STF.P 1 0 2 T C I 3 =9 2 
TC 1+9] =9 = NEXT.:FORI = 1 T08 ïREADDC I 3 : NEXT : DA 
TA-1 1 ,-10, -9,-1 ,1,9, 10, 1 1 
40 GQSL1B50 : XI =X ' T C X 0 ~ 1 îGOSUB50 :X2=X :TCX3 
-~-2 ' GOTO80 ' 

50 X=INTCRNDC1 3*80+1 1 3 : IFT C X3> 0GOTO50 
60 RETURN 

70 REM******************************** 

80 COLOR,,4,0:A$=" ABCDEFGH :: :FOR 
1 = 1 TOI 5 -B$=B$+CHR$C2243-:NEXT :PRINT"@" :F= 
XI :U$=CHR$C241 3 : CL=2 : GOSUB270 2 ?=X2 2 CL= 1 : 
GOSUB320 

90 CONSOLE0, 4, 0, 40 2COLOR? , 1 ,5 
100 PRINT"®E Uoul ez-uous jouer en premi 
er CO/N3 ?" :GOSUB580 : IFR$="O"THENGOSUB620 
■GOTO210 
110 GQSUB560 

120 REn**********JEU DE L x ORDINATEUR** 
130 PR I NT 11 ©SI JE PENSE 

140 2=X1 :GOSUB340 2lFM=0THENR$= ,! J'AI" :G 
OTO470 - 

150 IFUn<5THENPRINT i: Sl Je sens ma fin 

proche. . . „ 2MUSIC"C1 EGE" 

160 2=X 1+DCIN3 : T C 2 3 = 1 :U$=CHR$C241 3 =CL=2i 
GOSUB320 s T C X 1 3=0=2=X1 :U$=". " :CL=3:G0SUB3 
20 2X1 =X1 +DC IM3 2 PR INT "SB JE CONTI 

NUE. - 

170 2=X2:GOSUB340:2=X2+DCIt13 2TC23=9 :U$=C 
HR$C2003 :CL=6:GOSUB320 
1 80 REM********** J OUEUR*************** 
190 2=X2 2GOSUB620:IFM=0THENR$= ,! UOUS AUEX 
" 2GQTO470 

200 IFM=1 THENGOSUB620 :X=X2+DC IM3 =GOTO240 
210 GOSUB560 :PRINT" Parmi les";M;" c 

oups jouab 1 es “ 2CURSOR9, 1 SPRINT" ! eque ! jo 
uez-uous ?" : CURSOR 1 1 , 3 : PR INT" LIGNE, COLONN 
E" ; 2GOSUB500 2 IFT CX 3 O0THEN21 0 
220 FORI = 1 T08 : IFX-X2=DC 1 3THEN240 
230 NEXT 2USRC$3E3 2GQTO210 
240 TCX3=2 *.?=X :U$=CHR.$C241 3 2CL=1 :G0SUB32 
0 2TCX2 3=0 :?=X2 2U$=" . " :CL=3 :GOSUB320 = X2=X 
250 GOSUB560:PRINT ,; S Quelle case détruis 
ez-uous ? " ; :GOSUB500:IFTCX3>0THENUSRC$3E 
3 ÎGOTO250 

.260 T CX3 =9 :?=X:U$=CHR$C200 3 :CL=6 :G0SUB32 

0:N0=N0+1 -“GOSUB560 2 GOTO 1 20 

270 REM**********AFF I CHAGE.*********** 

280 CURS0R9, 5 **PRINTA$ :PRINTC5, 0 3TABC93 ;C 
HR$ C2083 ;B$ ;CHR$ C206 3 : FOR 1 = 1 T08 : PR I NTT AB 
C 6 3 ; I ; 2PRINT[5,03" n ;CHR$C2533 ,* :PRINTC3, 

0 3". " ; ïPRINTC5,03CHR$C2533 

5 SPRINT I 2PRINTC5, 0 3TABC9 3 ;CHR$C2533 J 
290 PRINTTABC25D îCHR$C2533 -'NEXT 
300 PRINTL5,03TABC93 riB" ;CHR$C205 3 ;B$;CH 
R$C22 1 3 2PRINTTABC93 ;A$; 2CURSOR30, 12:PRIN 
TC7, 03 n U0US= " ; : PR I NT C 1 ,03CHR$C241 3 :PRIN 
T 2 PRINTC 7, 03TABC3.03 ; "MOI = ,! ; :PRINTC2, 03 
CHR$C 24 1 3 

3 1 0 REM**X*******P I ON**************** 

320 USRC $3E 3 :L=INTC2/1 03 2C=2-10*L-1 -’CURS 
0R2*C+ 1 0, 2*L + 5 :PRINTCCL,0JU$ -'RETURN 
330 REM**********POSS I B I L I TES*-******* 

340 M=8 ï FOR 11 = 1 T08 = I FT C H+D C 1 1 3 3>0THENM=M 



350 FORI 2=1 T08 : IFCDC I23=~DC I 1 3 3+CTC2+DC I 
i 3+DC 1 23 3>03GOTO420 

360 FORI 3=1 T08 = IFCDC 133 =-DC 123 3 + CTC2+D CI 

1 3+DC 123 +DC 133 3>03THEN410 

370 I FN0 <4THENP C 1 1 3=PCI 1 3 + 1 -'GOTO410 

380 FOR 14=1 T08 2 IFCDC I43=-DC 133 3+CTC2+DC I 

1 3+DC I23+DC I33+DCI433>03THEN400 

390 PC 1 1 3=P C 1 1 3 + 1 

400 NEXT 14 

410 NEXT 13 

420 NEXT 12 

430 NEXT 1 1 :UM=0:FORI = 1TO8-'IFPCI3<UMTHEN4 

440 UM=P C 1 3 :IM=I 

450 PC 1 3=0 ^ NEXT 2 RETURN 

460 REM**********PERDU2 ************** 

470 GOSUB560:PRINTR$; !i PERDU EN" ,'N0 ; " CO 
UPS" 2CURSQR0, 2 :PRINT"Uou I ez-uous re fa i re 
une partie ? C0/N3 " :GOSUB580 : IFR$="0"T 
HENRUN 

480 PRINT"®SISQLA est termi ne . E" 2 END 
490 REM*******X**REPONSE************* 

500 GETL : IF CL <1 3 + CL> 8 3 THEN500 

510 PRINTL;", 11 î 

520 GF_TR$ 2 IFR$=" "THEN520 

530 IF C ASCCR$3 <653 + C ASCCR$3>72 3 THEN520 

540 PRINTRS :X=1 0*L+ASCCR$3~64 2 RETURN 

550 REM**********EFFACEMENT********** 

560 PRINT"®" ; 2 RETURN 

570 REM**********REPONSES************ 

580 GETR$ : IFR$=" "THEN580 

590 IFCR$O"0"3*CR$O"N"3THENUSRC$EBE3 :G 

OTO580 

600 RETURN : 

610 REM**********CASES LIBRES******** 

620 M=0 :F0RI = 1 T08 = IFT CX2+DC 1 3 3 =0THENM=M+ 

1 2 I M= I 

630 NEXT 2 PETURN 

640 CONSOLE0, 25, 0, 40 2 COLÛR, , 1,5=CLS:CURS 
0R1 7, 1 2 2pRI NT" I SOL A " : CURSOR20 , 24 : PR I 
NT"Les re 9 les ? C0/N3"? 

650 GETRE$:IFRE$="N"THENRETURN 
660 IFRE$<> "O"THEN650 

670 CLS2PRINT"0 Uous jouez contre moi 
. Nous deuons , " 

680 PRINT"Schacun> tenter d'encercler I 
autre sans" 

690 PRINT"Sle tre soi-meme encercle. 

700 PRINT"EA chaque tour, nous déplaçons 
notre pion"; 

710 PRINT"Ed'une case et détruisons une 
autre case" 

720 PRINT"Ssur laquelle plus personne ne 
pourra " 

730 PRINT"Epasser. 

740 PRINT"EUous comprendrez très oite en 
. jouant . " 

750 PRINT"EBONNE CHANCE. . , " -'CURSOR20, 24 2 
PRINT"Tapez une touche"; 

760 GETRE$ 2 IFRE$=" "THEN760 
770 RETURN 


programmes 



GRlHOUttU 


1 REM GRENOUILLE 
3 REM 

90 PG*® " GREMOU I LLE " : NM*® "19": GÜFUB6200Û 
110 F® 107 
120 GOTO 1500 

1 40 p*0 s C=9 s M® 53790 * K=M : I ®9 s J ®9 

1 50 Y®0 s CC=53390 s DD®53950 : EE® 53750 : FF®53550 s G=54078 

170 FR INT "BT" 5 s PRINTSTRING* ( ? 38) ; : 0=500+Es X®532B7 : POKEX , 1 15: POKEX+1 1 13 
180 F0RZ=1T016: X®X+40: POKEX + 1 , 113: POKEX, 61 : NEXTZ 
190 FOR Z = 1 TD4 : X ® X +40 : POKEX ,61 s NE XI 

200 a*= 11 s b*® 

210 C*= 



I IBS I 

III" 




220 PR INT: PR INT" 

230 PRINTTAB (32) 

240 PRINTTAB (32) ? "B H II" 

250 PRINTTAB (32) 5 "R H 1 fl" 

260 PRINTTAB (32) 5 "fl III" 

270 PR I NT " | " ü SP ACE* ( 1 8') Ü "H I 

280 PR I NT " >r " ï SPACE* <11)5” Æ" s SPACE* ( 1 7 ) ? " 
290 PR INT" H‘""T~I Tx-rT”"""! 1 I L" 5 SPACE* ( 16) 5 H I 

300 PRINT"| | Il I II I I I r;R*s 
310 PRINT") | lit II I I" SR*; 

320 PR INT 'W I | I vtatftM" s R* ? 

330 PRINT" 


Mi veau" 5 T; 

340 I F H® 1 T H E N P O K E 5 3 8 3 5 , F : P0KE539 1 0 , F : P0KE53999 , F 
350 PR INT "B 
360 PR INT "B 
370 PR INT" B 
380 PR INT "B 
390 PR INT "B 
400 PR INT "B 
410 PRINT "B 
420 PRINT" 

430 PRINT" 

440 PRINT" 

450 PRINT" 

460 PRINT" 


i : P0KE54247 , 208 



' 5 TAB ( 27 ) |i P S " Pun ai ses " : I FD< OTHEN 1 2 


470 PRINT SPACE* <9)3 "“"TB" 

480 0=0— ( Y+E) : IFG<0THENQ®0 
490 I F H ® 1 T H E N 1 4 2 0 
500 0=0-1 -E/l 5 

5 1 0 PR I NT " BUE" S I NT < ü > + 1 ü "B En er g i e 
5 1 8 FOR I =40 * TT 02 40 : NE X T 
520 GETD*: IF <D=1 ) * (D*®* 1 " ) THEN1740 
530 I FB*® " " THENPOKEM , 0 : G0T0750 
534 I FD*® " Q " THEN 1 230 
540 Y=VAL < D* ) s I FY< 1 THEN520 
550 I F ( Y® 1 ) + < Y® 7 ) + ( Y=4 ) THEN X =6 s G0T0580 
560 I F ( Y =2 ) + ( Y=5 ) + ( Y®8 ) THEN X® 1 2 : G0TÜ5S0 
570 I F ( Y=3 ) + < Y® 6) + ( Y=9 ) THENX = 1 8 
580 IFY>6THEN660 
590 I F Y >3THEN630 

600 PR I NT A* 5 : FORA® 1 TO X : PR I NT " •~- N B" ? 

610 B® A: AA«53820+A: I F PE EK ( AA) ®FTHENG0SUB1 160: A=X 

620 NE X T : FOR X = 1 T OB : PR I NT " Er ,! GE" 5 : NEXT: PRINT" " : G0T0690 

630 G0SUB840: PRINTB*; : FORA® 1 TOX : PRINT B" 5 

640 B® A: AA=53660+A: IFPEEK < AA) «FTHENG0SUB1 160: A=X 

650 NEXT:F0RX®1T0B:PRINT"EH BB" 5 s NEXT: PRINT" " : G0T0690 

660 G0SUB840 -* GOSUB 1 000 : PR I NTC* 5 s FORA® 1 TOX : PR I NT " —s B" ; 

670 B® A : AA=53500+ A s I FPEEK ( AA ) ®FTHENGOSUB 1 1 60 : A® X 

680 NEXT» FORX = 1 TOB : PR INT " E-' GE" 5 : NE X T s PR I NT " " s G0SUB840 

690 I FAA®KTHENK=EE : G0T0720 

700 I FAA=LTHENL=EE-40 s GÜT0720 

7 1 0 I FAA®MTHENM®EE-80 

720 Y® X : I FD® 1 THEN Y® Y /3 

730 I FZ=95THENZ=0 : 0®0+ (Y+E ) 

740 GOTO 350 

750 PDKEL , 0 : N=RND ( 1 ) : POKEK , 0 s F’OKEM , O 

760 IFN<. 1126THENM=M+l!K=K-41!L=L+40!C==L-l: l = I-i-_b0r08O 

770 I FN< . 2253THENM=M- 1 ! K=K- 1 ! L=L- 1 : C=C- 1 U. = 1. - 1 ! J - J 1 ■ BO I UB - . 
780 I FN< . 5379THENM*M+40 : K=K-39 s L=L-40 a 1 = 1 + 1 a G0T08OU 
790 M=M— 40 s K=K+ 1 : L®L.+4 1 s I ® ï + 1 i! J - J + 1 
800 I F ( M< CC ) + ( M >DD ) + ( C< 1 ) + < C > 1 7 ) THENC=9 ‘ M=EE. 

8 1 0 PÜKEM , F : I F < L-< CO + ( L >DD ) + ( J < 1 ) + < J > 1 7 ) THEN J =9 : L= 

820 POKEL , F : I F < K< CC ) + < K >DD ) + < I < 1 ) + < I > 1 7 ) THEN I =9 : K- 
B22 I F ( M=L ) + ( M=K ) + ( L=K ) THEN750 
824 POKEL , F : POKEK , F : POKEM , F : G0T0500 
840 PR I NT " EÜMÆKi 
850 PR INT "B 
860 PR INT "B 
870 PR INT "B 
880 PR INT "B 
890 PR INT "B 
900 PR INT "B 
910 PR INT "B 
920 PRINT" 

930 PRINT" 

940 PR INT "BT 
950 PR INT "B 
960 PR INT "B 
970 PRINT"E 
980 PR INT "B < 

990 PRINT"BEE 


:: EE 

=EE 



: RETURN 



1000 PR INT" El!!*! 

1010 PR INT "B 
1020 PR INT 
1030 PR INT "B 
1040 PR INT" 

1050 PR INT" 

1060 PR INT" 

1070 PR INT "B 
1080 PR INT "B 
1090- PR INT" 

1100 PR INT "B 
. 1110 PR INT "B 
1120 PR INT" B 
1130 PR INT "B 
1140 PR INT "B * 

1150 PR I NT " Ë£ST Wâ. "«RETURN 

1 1 60 I FPEEK ( A A ””40 > = 1 07THENP-P+ 1 8 U-0+4O 
1 1 70 I FPEEK < AA+40 ) « 1 07THENP®P+ 1 8 0-0+4O 

1200 POKEAA+1 . os P0KEAA-40, OîPOKEAA+40, OS ™KbAA-l > - 
1210 POKEAA+1 , Os POKEAA, Os S=b4076: 0=0+40- E-t+O. o 
1 F” 0 R Z = 1 T 0 2 0 O s NEXTï RETÜRN 

1230 F 0 RZ« 1 T 0200 ! NEXT! POKEK, Os POKEL, 0: POKEM, O 

1240 PR I NT " GRS" 5 T AB ( 37 ) 5 " " , 

1250 PR INT" MB Vous avez attrape" 5 PS punaises . 

"1270 I FP< 40THEN 1 3 1 0 ^ 

1280 PRINT"UB II vol a, saute aussi haut qu une mai&o 
1290 PR INT "B Sa langue est magique 7 ^ - R , 0 

1295 PR I NTT AB (9)5 "une Buuuper gr en oui lie..- GOTO 186. 

1310 IFP>30THENPRINT“US voici le ROI de 1 ' etan9 'i, ri l®°™mT0136O 
1320 IFP>25THENPRINT"U5 Une rainette assz gourmande.. ■ 

1330 IFPM5THENPRINT"!* Encore -e eune grenouille!! .GOlOi^. 

1340 IFP>10THENPRINT"HB Un têtard ! ! ! -- ■G01Dl-6(. 

1350- PR INT "UB Elle est vegetarienne. r 
1 "•'(AO GETD* 8 IFD*<>" "THEN1360 

1370 PRINT"B Une autre partie ?" ; s G0SUB60UOU 
1 390 I FLEFT* ( I N* » 1 ) < > " N " THEN 1 500 
1420 PR INT "K" s END 
1 500 D“0 s PR I NT " 11" 8 GOTO 1 820 
1 740 0=0+0 „ 3 s S®RND < 1 ) = I FS< 0 . 5THENG=G-2 
1750 G=G+1 s IF8<0« 25THEN8=G-78 
1760 I F ( G< 53320 > * < D= 1 ) THENG«54078 8 G0T05U0 
17 7 Ù I FG< FFTHEN 1 8 1 0 
1780 I F6< EETHEN 1 800 
1 7 90 G=G— 42 ï PDKEG ? F s G0T0500 
1 800 G=G-~40 s POKEGï F r s G0T05UÛ 

1810 G=G-41sP0KEG,FïG0T0500 tl 

1820 PRINT"GIîEntrer le niveau de difficulté <Oa9) 

1 830 GOSUB60000 
1840 T®VAL(IN*> :E=(T*2)~4 
1850 GOTO 140 

1860 FDRS=1 TOI 000! NEXTï GOTO 1360 

1 870 END 

60000 I N*® " " s Z T® VAL ( T I $ ) s Z C-2 8 Z D*~ 

600 1 0 6ETR* s I FR*< > " " THEN60070 
60020 IFZT<«VAL (TI*) THENPRINTMID* ( ’ 

ÎOOKÎ ““ < < VAL (R*) >=«:>) + (VAL <R*> <>9> , THENIN*=R*= PRINTIN* , s RETURN 

60075 I FD®0THEN600 1 O 
60 1 00 I N*=R* : PR I NT I N* 5 8 RETURN 
60200 I FPN®0THEN60250 
60205 GÜSUB60500 
60210 PR I NT " Appuy er , CR ? " 8 ZX®1 
60220 I FPN=LPTHENPR INT " Commen c on s " 5 
60230 PR INT "Continuons" 

60240 GETR* 8 I FR*® " " THEN60240 

60241 IFR*=CHR* < 102) THEN60250 

60242 GDTD60240 
60250 I FPN®LPTHEN60300 
60260 PN®PN+ 1 » PR I NT " ®._a grenoui 1 1 e 
60265 G0SUB60500 
60270 RETURN 

60300 PR INT "S" 8 GOTO 110* _ - pfti irm 

60300 FOR I = 1 TO 1 0 s PR I NT “ 5 s NfcX T I . RETURN 

62000 PR I NT " HUU" 5 T AB < 9 ) 5 " GRENOU I LL.E "5 
62010 PRINT"BJProgrammati on GAC PhiliPPeU 
62020 G0SUB60500 

62030 PR INT "Retour a la nature" 

62080 PRINT"UUUVoulez-vous les commandes 
62090 IFLEFT* (IN*, 1 > < >"Ü"THEN60300 
62100 LF'® 1 ! G0SUB60200 

62110 PRINT"La grenouille a besoin de punaises po 
62115 PRINT" vi vre , vous contrôlez 8 " ^ 

62120 PR INT" USa langue - > courte moyenne longue 

62130 PR INT "Met la hauteur-) haut 7 8^ 9 

62140 FRINT"Havec les moyen 4 à 

62150 PRINT"BJhambres suivant. bas 1 2 •> „ 

6'?160 PR INT "BS- 7 energi e diminue suivant la longueur. 

62170 PR I NT " fiJSu i van t la dit -fi cul te, les punaises _ 

62180 PRINT"fi!seront rapides et la dépense en energi e 
62190 PRINT"BJde la grenouille aussi." 

62200 GÜSUB60200 


, ZC, 1 ) S "B" 5 8 ZC®3— ZC 8 ZT--VAL (TI*) 


ï GDT060240 


Page " 5 PN 


ïPG* 


s G0SUB60000 


Ce programme peut aisément etre adapte sur 


MZ BOK et MZ 700. 



ww im 


ASTUCES 


Depuis les débuts du club nous avons déli- 
bérément négligé les utilisateurs des disquet- 
tes. Mais après maintes concertations nous 
avons décidé de mettre fin à l'oppression des 
minorités : voici quelques informations con- 
cernant le fonctionnement des disquettes 
quelques astuces pour lire et écrire directe- 
ment sur ce merveilleux support. 


STRUCTURE MATERIELLE 

La différence entre un MZ avec disquette et 
un MZ sans ne se limite pas à un boitier exté- 
rieur. En effet sur la carte interface est logée 
une mémoire morte qui contient un pro- 
gramme en langage machine permettant de 
BOOTER le programme BASIC (ou plus exac- 
tement de BOOTER un programme qui va 
chercher le BASIC sur la disquette). Il y a 
donc à l'adresse F000 de la mémoire morte 
alors que sur un MZ « normal » il n'y a rien. 
GOTO $F000 est équivalent à FD pour cette 
raison. Nous n'aborderons pas plus en détail 
la structure de l'interface et de l'unité mais 
il est important de voir comment l'informa- 
tion est stockée sur le disque. Contrairement 
à-un disque audio qui n'a qu'un seul sillon, 
les disquettes sont divisées en 70 pistes 
concentriques (35 par face) lesquelles sont 
autonomes et formatées en 16 secteurs. 

COMMENT LIRE ET ECRIRE DIRECTEMENT 
SUR LE SUPPORT 

Le drive disquette du BASIC DISK se trouve 
implanté à l'adresse $5216) et celle d'écri- 
ture ($5219). Le transfert des paramètres 
pour ces deux routines est fait de la même 
façon : Sont inscrits en mémoire à l'adresse 
pointée sur le registre IX du Z-80, dans 
l'ordre : 

- le N 0 de drive 

- le N 0 de piste 

- le N 0 de secteur 

- l'octet de poids faible du nombre d'octets 
à transférer 

- l'octet de poids fort de ce même nombre 

- les poids faibles de l'adresse mémoire ou 


les octets doivent être lus (ou écrits si 
$5219) 

- l'octet de poids fort de cette même 
adresse 

Voici un court programme qui montre les 
capacités de cette routine qui si elle était 
mieux utilisée par le BASIC optimiserait le 
temps de changement des programmes. 
Pour juger de la capacité entrer PISTE : 0, 
SECTEUR : 1, ADRESSE : 53248 (c'est à dire 
mémoire vidéo), et LONGUEUR: 1000 


plantation et d'exécution pour un programme 
en langage machine - quelques octets à 
zéro - la piste et le secteur ou le pro- 
gramme est rangé sur la disquette. 

Les programmes sont rangés sur des sec- 
teurs ne se suivant pas forcément, chaque 
secteur étant terminé par 2 octets indiquant 
la piste et le secteur ou la lecture du pro- 
gramme doit se poursuivre (ceci explique la 
lenteur relative de la lecture). 

Bonne chance, réalisez des prodiges avec vos 
lecteurs de disquettes... 

Nous attendons vos réalisations 
impatiemment ! 


Les champs d'application de ces deux routi- 
nes sont innombrables : récupération de pro- 
gramme partiellement abimé - fichier à 
accès réellement direct - modification du 
BASIC DISK - copie MASTER - protection 
des programmes etc. 

COMMENT LE BASIC DISK ORGANISE- 
T-IL LE STOCKAGE DES INFORMATIONS ? 

Voici quelques informations succintes : le 
DIERCTORY est stocké à partir de la piste 1 
secteur 1, de la façon suivante : 2 program- 
mes par secteur. Pour chaque programme on 
trouve dans l'ordre : le type (OBJ, BTX, 
BSD...), codé un octet - le nom en ASCII + 
le code 0D - la longueur - l'adresse d'im- 


1 LiriIT$C800 

10 DEFFNHCX3 = INTCX/256J :REP1 POIDS FORT 
20 DEFFNL C X J =X-FNH C X D *256 : REM POIDS FOI B 
LE 

30 PRINT"@" 

40 INPÜT"DRIUE ;D 
50 INPUT "PISTE ;P 
60 INPUT "SECTE 
70 INPUT"LONGU 
80 INPUT"PDRES 
90 POKE$C800, $ 

,$10=POKE$C803 

100 POKE $C804 
06,$52:RE!1 JP 5216 

101 RED POUR ECRITURE JP 5219 


P 

!■ 
r 

s 





110 P0KE$C81 0, D s 
120 P0KE*C81 1 ,P 
130 P0KE$C81 2, S 

140 P0KE$C81 3, FNLCLD :P0KE$C81 4, FNHCL3 
150 P0KE$C8 1 5 , FNL COJ :P0KE$C81 6, FNHCfO 
999 USRC$C800D 


J 



EXEMPLE 1 

SECTEUR DU DIRECTORY 


Drive i Piste 1 Secteur 5 



0 

1 

2 

3 

4 

5 

6 

7 

01234567 


8 

9 

H 

Ë 

C 

D 

E 

F 

89RBCDEF 

0 

02 

4R 

92 

05 

20 

9C 

92 

20 

1 Jeu de 


9E 

98 

9D 

01 

A4 

92 

R4 

32 

|phrases2 

1 

35 

00 

07 

05 

00 

00 

00 

00 

15 


00 

00 

00 

00 

00 

00 

00 

00 


O 

jL. 

00 

00 

00 

00 

00 

00 

00 

00 

isliiasiiisiiiiiiiiiii 


00 

00 

00 

00 

00 

00 

00 

00 

âüH 

3 

00 

00 

00 

00 

00 

00 

00 

00 

wÈssmaSimà 


00 

00 

00 

00 

00 

00 

1F 

09 

i 

4 

02 

52 

92 

RB 

92 

R6 

B8 

2D 

1 Reveil- 


41 

88 

ni 

9D 

B3 

92 

20 

32 

IRlome 2 

5 

35 

00 

E2 

0B 

00 

00 

00 

00 

15 1 


00 

00 

00 

00 

00 

00 

00 

00 

liiiiEiiiïiiiiiiiaj 

6 

00 

00 

00 

00 

00 

00 

00 

00 

liilipiiiïiïiiîiiiiiiiiiis 


00 

00 

00 

00 

00 

00 

00 

00 

ËSêSSSËËËÊË 

7 

00 

00 

00 

00 

00 

00 

00 

00 

WSSBÊÊÊËSSËSk 


00 

00 

00 

00 

00 

00 

20 

04 

llltlliflpllllillllllll 


EXEMPLE 2 

SECTEUR CONTENANT UN PARTIE DE PROGRAMME BASIC 


Drive i Piste 33 Secteur 



0 

1 

2 

3 

4 

5 

6 

7 

01234567 


8 

9 

R 

B 

C 

D 

E 

F 

89RBCDEF 

0 

22 

0D 

2D 

00 

D8 

09 

85 

22 

| « - • xJ* | 


il 

33 

2D 

53 

49 

28 

52 

45 

1 3-SI REI 

1 

46 

55 

53 

28 

49 

4E 

54 


1 FUS INTRI 


4F 

44 

55 

49 

52 

45 

20. 


IODUIRE L 1 

2 

27 

48 

45 

55 

52 

45 

20 


1 'HEURE El 


58 

41 

43 

54 

45 

22 

0D 


IXRCTE" +1 

3 

00 

E2 

09 

85 

22 

ü 

34 


1 1 4-1 


49 

4E 

54 

52 

4F 

44 

55 

49 

1 IHTRODUI 1 

4 

52 

45 

20 

4C 

27 

48 

45 


IRE L 'HEU 1 


52 

45 

20 

44 

55 

20 

31 


IRE DU lel 

5 

9D 

20 

52 

45 

56 

45 

49 


1 r REUEILI 


22 

0D 

2C 

00 

EC 

09 

85 


1 " > L 1 

6 

11 

35 

2D 

49 

4E 

54 

52 


1 5-INTROI 


44 

55 

49 

52 

45 

20 

4G 


1 DU IRE L'i 

t 

48 

45 

55 

52 

45 

20 

44 

55 

1 HEURE DUI 


20 

32 

92 

B3 

92 

20 

21 

06 

1 2eme ! 1 




CARACTERES 
ACCENTUES 
SUR MZ-80K 
IMPRIMANTES PS 
ET GP 80D 


Les générateurs de caractères du MZ-80K et 
son imprimante P3 comportent plusieurs let- 
tres empreintés à l'aphabet allemand et nous 
sont totalement inutiles. Il est, par contre très 
tentant de les remplacer par nos caractères 
bien français que sont les é,è,ê,à,â,ï,ç. Ces 
caractères sont contenus, tant dans le MZ 
que dans l'imprimante, dans une mémoire 
REPROM 2716. Cette mémoire contient 256 
groupes de 8 octets, chaque groupe corres- 
pondant à 1 caractère. Seule opération com- 
pliquée, il faudra vous procurer un program- 
mateur d'EPROM ; ensuite, il vous suffira de 
reprogrammer les octets pour obtenir la 
transformation suivante : 

anciennes 

lettres 0 À Ü 6 à ü B 
nouvelles 

lettres é è ê à â ï ç 

Modification PROM 80K 

04D8 18 24 

0550 00 00 3C 42 40 40 3C 10 

0558 14 00 18 08 08 08 1 C 00 

0560 10 0C 38 04 3C 44 36 00 

0568 18 24 3C 42 7E 40 3C 00 

0570 20 18 3C 42 7E 40 3C 00 

0578 08 30 3C 42 7E 40 3C 00 

Modification PROM P3 

04D8 00 44 

0540 00 38 54 56 55 08 00 00 

0578 00 20 40 44 3D 00 00 00 

0590 00 38 56 55 56 08 00 00 

05D8 00 38 46 45 3E 40 00 00 


Modification PROM GP80D 


0360 

Pllil 

SB 

56 

55 

54 

08 

— 

su 

0378 

llil 

llli 

SI; 

llli 

1111 

1111 

Sggf 

00 

0380 

49 

7C 

41 

00 

00 

18 

24 

64 

0388 

24 

08 

Ili-E 

Bil 

llli 

ijjj 

llli 

m 

0398 

!l§:: 

SB 

îlB: 

:ï§f 

11 

38 

56 

55 

0360 

56 

08 

llli 

iih 

llli 

llli 

ilii 

SIg 

03C0 

§iS! 

§§g 

iii§ 

— 

lll| 

11 

il 

38 

03C8 

54 

55 

56 

08 

llli 

30 

49 

36 

03D0 

40 

; S:11 

HiS 

30 

46 

39 

42 

00 



ROUTINE 

RECOPIE D'ECRAN 


Les lignes 20 à 50, implantent le programme Les lignes 65 000 à 65 020 transforment 
LM. Celui-ci transfère la mémoire écran aux chaque ligne écran en chaîne de caractères 

adresses C738H à CFFFH et convertit les et les imprime, 
codes d'affichage en codes ASCII. • 

10 REM RECOPIE D'ECRAN SUR U1PRINANTE 

POUR BASIC 5025 8. 6015 / HE 80 K 
20 FOR 1=0 TO 34JREAD A^POKE 41 56+1, A 
30 NEXT I 

40 DATA 33,0,208,17,56,199,1,232,3,237,1 
76, 17,32,203,33,56, 199, 126,205,206, 1 1 ! 

50 DATA 119,35,205,89,16,32,245,201,124, j 

146,192,125,147,201 I 

65000 USRC4156D 

65010 FOR 1=51000 TO 51999 STEP 40 1 

65020 FOR J=1 TO 40 :PRINT/PCHR$CPEEKC II 3 
î :NEXTJ :PRINT/P:NEXTI 


0000 



REL 

103CH 

1 03C 


ASCII0: 

EQU 

0BCEH 

1 03C 

2100D0 


LD 

HL, D000H 

103F 

1 1 38C7 


LD 

DE, C738H 

1042 

01E803 


LD 

BC, 03E8H 

1045 

EDB0 


LDIR 


1047 

1 1 20CB 


LD 

DE, CB20H 

1 04A 

2138C7 


LD 

HL, C738H 

1 04D 

7E 

ASCII : 

LD 

A, CHU 

1 04E 

CDCE0B 


CALL 

ASCII0 

1051 

77 


LD 

C HL J , A 

1052 

23 


INC 

HL 

1053 

CD5910 


CALL 

COMPR 

1056 

20F5 


JR 

NE, ASCII 

1058 

C9 


RET 


1059 

7C 

COriPR = 

LD 

A, H 

1 05A 

92 


SUB 

D 

1 05B 

C0 


RET 

NE 

1 05C 

7D 


LD 

A, L 

1 05D 

93 


SUB 

E 

105E 

C9 


RET 



& 


Suite à de nombreuses demandes, ci-joint le 
shéma du connecteur arrière du MZ 80K 


O 

(MARK) 


A 

B 

A 15 

1 

G 

A 14 

2 

ÏNT 

Ai3 

3 

G 

Al 2 

4 

MREQ 

Ail 

5 

G 

AIO 

6 

ÏORQ 

A9 

7 

6 

A8 

8 

RD 

A7 

9 

G 

A6 

10 

WR 

A5 

11111 

G 

A4 

11111 

Mil 

A3 

11111 

G 

A2 

1111 

HÀLT 

Al 

15 


AO 

! 

; !6 

RESET 

G 

17 

G 

D7 

1 18 

G 

06 

19 

G 

' 1 

‘ D5 

20 

G 

04 

21 

G 

D3 

22 

G 

D2 

23 

G 

DI 

24 

G 

DO 

25 

G 


C3 

, IOW A 

►6 


▼ I4L. V ^ : — 

e W — ... . M 


s: 


100 jjJ 

C37 25V 

rKjn * A ■■■■■. 

:! 

k ' 

XJ 

rx 

O IN U • 

A i 

5V i 

,+IOC 

-25 

V 

rx 

C3 

18 



+I2V 

4-5V 

GND 


~5V 



PROGRAMMATION 
STRUCTUREE (suite) 


10 PRINT"B" 

20 MI=0 
30 Mfi=100 

40 AT=INT<RND<1> *100> 

50 PR INT» AT 

60 INPUT" NOMBRE A TROUUER >”?X 

70 IFX=AT THEN INPUT" BRAUO . UOULEZ-UÜUS REJOUER ?".:R$:IF R$=" 
80 IFX>AT THENMA=X : PR I NT " MO I NS COMPRIS ENTRE "SMI;" ET 11 ï MA: 
90 M I =X : PR I NT " PLUS COMPRIS ENTRE "?MIï" ET "ïMA:QOTO60 


Dans le bulletin N 0 7, nous avions 
fait une première approche de ce 
mode de programmation. Dans 
celui-ci nous allons mettre en 
parallèle deux programes, qui 
tout en donnant le même résultat, 
n'adoptent pas la même 
démarche. 


Pour mieux comprendre, AT est affiché à la 
ligne 50 

Maintenant voyons en programmation struc- même impossible à réaliser, 
turée. Comme on veut le même résultat, l'ai- 

gorithme est bien entendu le même. P ro 9 ramm ® s établit tout en raisonnant. 

Par contre, on s'aperçoit que l'on n'a pas Voici déjà le programme ; et le raisonnement 
besoin d'établir d'ordanigramme. Ce serait après. 


Lorsqu'il s'agit de programmation tradition- 
nelle, la logique veut que nous commencions 
tout d'abord dans l'ordre : 

A. L'algorithme. 

B. L'ordinogramme. 

C. Le programme. 

EXEMPLE : 

A. Je veux trouver un nombre tiré aléatoire- 
ment. Je veux déterminer à chaque fois la 
fourchette à l'intérieur de laquelle il se trouve 
en précisant. « PLus ou moins ». 

B. 


PRINT'E” 

MI=0 

MR=100 

fiT=INT(RND<l)*100) 

PRINT»RT 

WH ILE XORT DO 

4 ' INPUT "NOMBRE R TROUUER >“SX 

r*IF X > RT DO 
Mfi=X 

PRINT"MOINS COMPRIS ENTRE 
■•ELSIFX < RT DO 
MI=X 

PRINT"PLUS COMPRIS ENTRE " 
1 U-ENDIF 
WEND 

INPUT "BRRUO . UOULEZ-RE JOUER ? 


UNTIL R*="N" 



AT est aussi affiché à la ligne 70. 



Ligne 10 

Ce « mode » permet l'utilisation de Repeat. 
Until etc... 

Ligne 80 

tant que X est différent de AT j'effectue (DO) 
le traitement compris entre WHILE et WEND. 
Ligne 100 

Si X > AT j'effectue les lignes 110-120 et je 
saute après ENDIF, ici WEND qui me renvoie 
au WHILE. 

Ligne 130 

idem pour les lignes 140-150. 

Si X = AT le test se faisant au WHILE (80), 
le branchement s'effectue après WEND (180) 
et d'après R$, on retourne à REPEAT (20) ou 
c'est la fin après UNTIL. 

PS. L'offre du Bulletin N° 7 est toujours 
valable... ! 



A.B 


programmes 


AIDEBARAN/ BASIC 5025 

2® Ssl Vielle? ï c2êè!K<40007 3UT> ’ PRINT " E " ' WSUB950 !B =J 


S=V-2+ < C=77 > +2+ C C=85 > : C=40y VS+KS+5324S : P 
> THENPÜKE40+V+X+53248 , ÿ: POKEC, Z: GOTÜ90 


30 I FC- 1 92THEN670 

40 KL=X-<C=75) + CC=72? : VL- f- ( C=77 > + < 0=85 > : R=40*VL+HL+53248: Z=PEEK«'fl') 

50 IFZ=8THENPOKE40yV+X+53248, 0: GÜTÛ98 H 

60 XS=X-2* i C=75 > +2 : + : C 0=72 > : , 7S=V-2+'r.C=77>+2+CC=85> : r:=4fl+','C;+v?;+'=;T:v4ft: p 
3 >=200 > + <. Z=67 > >THENPOKE40*V+X+53248, 0: POKEC, Z: GÛTÜ90 

by büiüiiy 

90 I F < XL=- 1 !:* + C KL=4ü > + 1; VL=2 > + < VL=25 > THEH 1 1 0 
10W X=XL: V=VLï POKEfl, 229 

} i ? E1 '.J? 1 =M1 + 1 : L= I NT ( L 1 1 70 > : M= I NT C M 1 1 70 i : I FM > 1 8 THENL 1 = 1 78 : N 1 = 1 70 
1 20 T= I NT c. RHO (. 1 > : + : 2 : + : L > + 11 — L s IJ= I HT C RND < 1 ;> *2*M ) + 1 3-M 
1 30 U-40+1J+T +53248 ! U=F’EEK t U > s IF < W= 1 66 > + (' hl=67 :• THEN?0 
140 IF < 1,1 > 1 99 > * C W< 205 -, THEN820 ' 

1 50 POKEU , H C I NT C RND C 1 > y 1 0 ' 

1 60 VK=VK+ 1 : POKE53290+LK , fl C VK > : I FVK >7THENLK=LK+ 1 : VK=- 1 

ion r-nrfr^0 9THENLK=0: VK=_1 : ÜD=OD+1 0 : PRINT "0B" ; T AB ( 29 ) 5 OD: IFOD=1Q0THEH67Q 


ALDEBARAN 
2188. " : PR INT 
le bo.cteriopho.-3e flLD-7 
ïStefie ALDEBARAN sur le 


180 QOTÜ20 ' ' ' 

198 PR I NT " SBBBESUou 1 ez - vous les instructions <n nu N':'’'"' 
208 GETflï: IFft$= ,,1, THEN200 
210 I FM = “N" THEHRETURN 

220 PRINT*'ËBB HLDEBflRflN PF 

f 30 PR I NTT flE: C 2 ; " 6 Av r il 21 88 . " : PR I HT 
240 PR INT" Soudainement, le bacter tophooe flLD-7 
250 PR INT" importe- du système ALDEBflRflH sur le 
r'9? oriîuï» vaiss eau NULL 92 1 , se proposeo en ab- 
f.. pp lNT sorbant les rayons XRB seneres par le 
280 PR I NT " laboratoire du Dr V.K Hudson. Le svs- 
2?® PRINT" terne de sécurité se déclencha, laissant 
O00 P R INT" 10 eminents bactériologues Prisonniers 
ol0 PR INT" Uotre tache est de contrôler le robot 
32Ç BETfi '-2 afin de ramener le maximum de 

EE ' IHT " -ayants dans une pièce non infectee, 

-'40 PR INT" ceci ayant aue le compteur de ProPasa- 
350 PR INT" 1 1 on n "'atteigne 100 . Ayant ce delai, 

360 PR INT" yous devrez impérativement bloquer les 
3,-ti PR INT" issues a 1 "'aide de blocs stériles pris 
380 F'RINT" dans une pièce voisine. 

390 PR INT: PR INT" Tapez une touche 

400 GETfif : I F M~ " " THEN480 

dan£ '--'Ot re mémoire ces consignes: 

420 PR INT 1 ., L" indice a 1603 , votre mission «t in t 
430 PRINT"2> Mous causez la MORT de ï oui i;; 

savants si vous ne bloquez Pas les 
4-_'0 FRIHT sept issues en terminant votre tache 
4b8 PRINT":-.;' Le robot BETfl-2 obéit a 4 ordre*: " : PRINT 
470 PRINT" )J li=Haut. 

3H»: H-j— K ,t1r he BETfi-2" SP0KE5375. 

500 PRINT" I K=Droite 


■ temps joue contre vous ! 
■us avez fini , tapez CR. Mot , 


Des -tue 
e mérité 


430 PRINT "2 > Mous causez la MORT de tous î*s ‘ "" 

savants si vous ne bloquez Pas les 
4-_'0 FRIHT sept issues en terminant votre tache 
4t.0 PRINT".:-.;' Le robot BETfl-2 obéit a 4 ordre*: PRINT 

470 PRINT" )J ll=Haut 

4» PRINT" H-Lk «:B»“ Che * BETfl-2-.P0KES3754.229 

580 PRINT" I K=Droit.e 

510 PRINT" M 

520 PRINT" 

530 F'RINT "4:, Le temps joue contre vous ! Des au* 

531 PRINT" vous avez fini, tapez CR. Uotre mérita 

532 PRINT" sera alors évalué. 

540 PRINT 

Taoez une touche et cou rase" 1 
5b 0 üET : I F flî= " " THEN560 
578 RETURH 

II! reÎNT“Ma!BBà" ; ?flïp24> , B*= ^^-«TOM.PRINT-W»». . TflBC24> 

610 ™M,Æ<“K B »NEVT'' re,OT " 1 ^^ 

620 FOR I = 1 TO 1 0 : U=67 

630 FÛRKB=1T07: POKE JLCKB.', , U : MENT : FORT = 1 TO 1 OR : NEL'T 

b40 PUKE54 1 36 , IJ : P0KE54 1 45 , U : FOR J= 1 TO 1 00 : HE XT 

658 U-0 : F0RKB= 1 T 07 : POKE-JL < KB > , U : NEXT : FOR J= 1 TO 1 00 : NENT : NEXT 

660 F‘R I NT " 0EBBBBBBBBBB " ; TflB < 24 ; B t : PETI IRH 

91? PÇIHT-QBBB" : F0RXX=1T018: PRINTTflB< 1 > ; SPOCSR', : NEXT 

: 1 F '■ PEEK C DL ■' >e :+: PEEK < T'L > < >67 THEHH I =H I + 1 
b+0 I F F EEK DL +4ü .) < >0 * ( PEEK C DL + 4£i > < >6 7 ■' THENH I =H I + 1 
-UO ne^T EEK DL+80) >0;: ' + ( PEEK DL+8® < >67) THENH I =H I + 1 


9 PR I NT " 

0 PR INT "S | i sf 

0 PRINT "K i , | ï* 

0 PR INT "S i ' __ | ;;; w 

\ ^gTNT»K ^ j | h, rS — , , S 

3 PR INT "K , 

3 PR INT "S | mm 

3 PRINT "K i i rXREh i i tmmmmi 

3 F’RINT "S J I flLD-7 1 1 SS 

3 PR INT "K — — imm JS 

1 PR INT "S 1 r S 38- 

3 F’RINT "S I | w Eïïî^ji S 

i F’RINT "S ! n r-H S s 

i K3 ' 

J PR INT "S n n JS Wim SS 

) PR INT "K II || s $ 

i PRIHT"?:®î®amï îjsssîss smssssssss^» ; PRINT“5S" s PRINT ”3SB" : 6OBUBSP0! 1*0 

t.XM=INT(RND<l>n«13)+2ïVM=INT<RND<i>*18>+3:fl=40*VM+XM+S3248 

* I ppE fK f : 0>+ p EEK(fl+l > +PEEK C fl- 1 > +PEEK < fl+40 > +PEEK < fl-4Ei > =0THEN 1 250 

* buiui^y 

i F’OKEfl , 202+ 1 NT ( RND <1 ) +4 > : I = I + 1 : 1 F I < 1 0THEH 1 220 

: 2s ®- ^ - =32- a®- 2» 

[ D ATA53509 , 53633 , 53669 , 53789 , 54 1 35 , 54 1 36 , 54 1 45 


T2? F 0RKB= 1 T07 : I FF’EEK < -JL C KB > > =67THENKJ=KJ+ 1 
ou NEXT 

748 PR INT" 0BBBBBS2 1 nd i ce : " ; LK.-"2+ OD ?" X " 

758 PR I HT " SESa. vant s sauf s : " ; H I 

768 F’R I HT " ES I ssues b 1 oauees : ” ? K,T : GOSUBS40 

1 1 0 F’R I NT " 0BBBBBBBBBBBB3BBBBBBBEEüne autre mission ?" 

788 GETKf: IFK#=""THEH780 
798 I FKÎ= " 0 " THENRUN 
888 END 

828 IFI,J=229THEN670 

!» p OKEU, W:MUSIC"ClE#D" : F’OKEU, 71 : MUSIC"#G1-#CF" : G0T028 
848 U= I NT (. H I + R. J." (LK.--2+0D+ 1 j +■ 1 00 > 

i 8 ! 0 î E< ^ =? ; 5:+: < H I< = 5>THEHPRINT"SSMerite:"?U; " Pts" : GÜTO890 
obW I F (. K J=7 j + H I >5 j THENF’R I NT " EEMe rite: " ; 1 1 ; " pt. s " ; GnTfl q 20 
^l\iï:^* ss0ssin ' Par " : pp I NT ” EEvot, r e stùpidlt^'nôs" 
Sol cri l ‘ ï Es rec 1 eux î*y*>-* s" : F’RI NT " SEsont mo r t s dans " 
no| ooTUTHon^ oX roceB ^ou 1 eu rs î " î F’R I HT " EEUous n "'avez bas' 1 
‘r'-'t Mo+erme toutes 1 es " : PR I NT " SE i ssues !" : RETURH 

Ion c^ïuT"E 5fiLC;, ~r e f t •••"-■ i ncu " : pp I NT " EEUous laissez auand" 
980 F R I HT SEmeme " ; 1 8-H I ; " veuves " : PR I NT " EEen I o rees . 


|®| p|j['£J S5,W,e ' 10 ~ HI? " --'euves " : PR I NT " EEep I orées . 

Po or ÎÎ1ÏÜ ïîf-? 1 re ,v ' issi c,ri est " : F'R INT" SEacoomb lie, ma 1 •=. r e » 
oSn od î ' î n J 0 ~ H J> ' " |V ' a ^ y res de 1 a " : PR I NT " SSso i ence 

948 PR I HT " BBSEESSFe 1 i c i t at i or.s " : RETURH 
958 PR I NT " 01 1 I I | | | | | rn f ~“i — i» 

IP! SïtfF- 3 LÎ=!i£îi-S_J- 

980 X=35: V=15: fl=40*V+X: P0KE53248+A, 229: L=1 : M=1 : VK=-1 : TE' 

990 FOR I =0TÜ6 i REflDZ : POKE40800+ I , Z : NEXT 
1008 FORI=0TO14: RE ADN < I >: NEXT 
1010 F OR I =0T 08 : READfl < I > : NEXT 







Elle est constituée en grande partie de logi- 
ciels conçus et réalisés par les SHARPEN- 
TIERS et transmis au Club. Les modalités 
d'accès à la logithèque répondent à deux 
impératifs : 

• Assurer une légitime contrepartie aux con- 
cepteurs de programmes. 

• En faire bénéficier tous les charpentiers, 
même débutants en programmation 
Dans cet esprit, nous avons généralisé la pro- 
cédure appliquée aux MZ et l'avons modifiée 
comme suit : 


1. Vous nous faites parvenir un ou plusieurs 
programmes dont vous êtes l'auteur, nous 
vous retournons, sous 10 jours maximum un 
accusé de réception accompagné d'un nom- 
bre de points équivalent à la valeur de ce(s) 
programme(s), de (1 à 5 par programme), 
vous pourrez ensuite nous demander, en une 
seule fois, autant de programmes de la logi- 
thèque que de points acquis. Vos program- 
mes doivent nous parvenir sur cassette, 
accompagnés d'une notice aussi complète 
que possible. 


2. Vous désirez recevoir des programmes 
mais n'avez pas de points à votre crédit. 
Faites nous parvenir, dans ce cas, une cas- 
sette vierge et la somme de 15 F. par pro- 
gramme demandé, nous vous retournerons 
vos programmes sous forme de listing ou sur 
cassette sous 20 jours maximum. 

3. Vous nous faites parvenir un article sus- 
ceptible d'être publié dans le « SHARPEN- 
TIERS (intérêt général, astuces, application 
mise en oeuvre sur votre machine etc.) Vous 
bénéficierez, dans ce cas, d'une contre-partie 
identique à l'envoi de programmes. 



UStt 





DEFENDER ™— .. C. 1 C80K3C700) L.M. 


M2-JEUX 


ANTARES CALLEMAGNE3 C80K3 L.M. 20 K 

des va Us* aux en 3 dimensions foncent su r vous. Détruisez les 999 

ATTERISSAGE™™ C. 1 C80K3C80A) BASIC 12 K 

atterlssez sans degat materiel sur ta lune Cverslon 80k avec» dessins réussi) 

BLOCK KU2USHI— — — CCLUB3 C80K3C700J L.M. 3 K 

mur de briques très difficile a battre. En assembleur 3 niveaux 

901 TE A ATOMES CS. B.) C80B3 BASIC 64 K 

•Jeu de réflexion et de deduottons. Très diff toile. 

COM BOT DUEL— -C.3C80K3 L.rt. '3 K 

battez vous a 2 sur votre écran au milieu des oaotus et des diligences .. 

CRA2Y CL IMBER C CLUB 3 C80B3 BASIC 64 K 

Tenter d'esoalader un Immeuble en évitant toutes sortes de projeot l ies.H.R. 


piloter un avion .attention aux missiles 9998. 

DONNES BRIDGE—™ — CN.C. 3 C80B3 

Un assistant qui distribuera les oartes a 4 Joueurs. 

C IGHTER C.) C80B3 

abattre le maximum d'avions qui traversent l'écran 

ÛALACT I CAN— — C. 3 C80K3C7003 

super space Snvader.Le meilleur programme de Jeu en assemblée 

WLAXIAN— C CLUB 3 C80K3C80B3 

excellent Jeu d'arcades. Très rapide. 

ÛALAXY FORM— C .JAPON 3 C80K3C7003 

crevez des ballons aveo le nez de vos fusee Cfaut aimer ..) 

GQMOKU-M ACH I NE-"— « C CLUB 3 C80K3 

Jeu de morpion très raplde> 

GRENOUILLE™™—.—.™ — — C. ) C80K3C80A3 

' attrapper des moucherons aveo ta langue CAmusant 3 


L.M. 

’ 2 K 

BASIC 

64 K 

BASIC 

6 K 

L.M. 

v sur 80 K. 

1 4 K 

BASIC+L.M. 

9 K 

L.M. 

*0 K 

L.M. 

4 K 

BASIC 

10 K 


GROUGN I ACHES* 


-CCLUB3 C80B3 


U meilleur jeu en H. R. pour te MX 80 B, 

GUILLAUME TELL—. — — —— C CLUB 3 C80K3 

Un ar-o. des fleohes et des pommes a attraper... 

HEAD-ON-*..— *— ~ C CLUB 3 C 800 

Poursuite dans un labyrinthe. Demande beaucoup d'adresse. 

JEU ÛE LA UIE CCLUB3 C80K3C80B3C7003 

voir naître vivre et mourir des centaines de cellules sur l'eonan. Graphique 
LABYRINTHE 3D C. 3 C8083 


L.M. 

L.M. 

u.n. 

L.fl. 


04 K 

5 K 

3 K 

4 K 


CREGEFI. 


-C. 3 C80K3C700J 


une superbe version en haute resolution 
LAS UEGAS B — C.3 C80B3 


l'enfer du jeu 
LAS UEGAS— 


Ruinez vous en haute resolution îi 
*—*— CN.C. 3 C8083 


BASIC 04 K 
BASIC+L.M. 40 K 
BASIC+L.M. 04 K 
L.M. 3 K 


Machine a sous aveo excellents 9 raph Urnes. CGRAPH. 13 

LUNAR TRANSPORT—*, . C CLUB 3 C80K3 

aventure sur la lune graphique. 

MISSILE COMMANO C CLUB 3 C80K3C7003 

un oelebre jeu d'arcade de fendez vos cites en économisant les munitions > 

ÜINCHIES — C CLUB 3 C80K3 

genre paokman 

NAUFRAGES — C. 3 C80B3 

récupérez les naufrages avec vos boueee CH.R3 

OTHELLO H. R. C.3 C80B3 

très beau et très fort Ccarte graphique obligatoire! 

PENDU H. R * — C. 3 C80B3 

faites vous pendre aveo la carte graphique SS 9 

PENTOMINOS iC. 3 C8083 

un grand oasse**tete en haute résolution 

POUSSE-POUSSE* - C.3 C8083 

un oelebre jeu de patlenoe en haute résolut ton 
PUCKT1EN . — C . 3 C80K3 C7003 


paokman qui oompte en allemand 
PUISSANCE 4—— - 


-C.3 C80K3C7003 


oelebre jeu de réflexion oontre la machine . 

SARGON 2.5—— C.3 C80K3 

exoe lient jeu d'eoheos. 

SIMULATEUR—* — - CN. C. 3 C80B3 


L.M. 

munit 

L.M. 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

L.M. 

BASIC 

L.M. 


!0 K 
22 K 
32 K 
40 K 
10 K 
64 K 
40 K 
13 K 
10 K 
25 K 


BASIC+L.M. 04 K 


Excellent simulateur de vol. Graph 30. Rapide et très réaliste. 

SIMULATI0N-U01 .* C.3 C8003 BASIC+L.M. 04 K 

excellente simulation graphique en temp reel S 

SPACE INUADER— — — **C.3 C80K3C80AJ C80B3 C7003 L.M. 20 K 

!a préhistoire du jeu video. Un certain charme rétro. C6RA1 obligatoire sur 80B9 
SPACE ODYSSEY C.3 C80B3 BASIC 


un jeu qui demande beaucoup d'adresse Ccarte BRI 3 
SPACE PAN IC * C. 3 C80K3C7003 


L.M. 


très drôle * faites tomber les vilains monstres dans des trous 

SUPER PEFENDER C CLUB 3 C80K3 L.M. 

Le plus subl ime jeu de bistrot. Cgraph et sons époustouflants! 

TOUR INFERNALE C CLUB 3 C80K3 L.M. 

Uhe tour en feu et vous au centre. Vous échapper ou mourir... 


04 K 
20 K 
19 K 
9 K 


I1E-UT I L I TA I RES 


BASIC 


BASIC 


L.M. 

L.M. 


04 K 
1 K 


ALPHABET GOTHIQUE-** —C.3 C80B3 

vous pourrez afftoher en gothique des messages sur l'eoran 

PENSE BETF. ***** C.3 C80K3 

Interrompt votre programme baslo a une heure prevue. Csomerte * alarme! 

SUPER BASIC KOKAN-*— C.3C80K3 L.M. 20 K 

Super Super Super BASIC. . f aveo notice très detail lei 3 

SUPER MONITEUR C.3 C80K3 

uti litaire d'aide a la programmation en L.rt. 

9 80 TOOL BAQ— C.3 C80K3 

des assembleur pratique et rapide loge en fin de mémoire. 

M2-ENSE I GNEMENT 


4 K 
48 K 


-C.3 C80K3 C7003 


BASIC f 30 K 

entraîne les jeunes enfants au oatout C vers ton 80k BASIC UM5068 uniquement! 

fit» QflBAPH T Pf-, f - 3 rflBR3C80A3 BASIC 32 K 

revisez * la geograph le des réglons de franoe. Attent Ion baslo UM pour vers ton 80K 

«ORF fN.r.3 C80B3 BASIC 04 K 

Uous verrez} en H. R. la partie de la terre suivant les ©©ordonnées X et Y dem. 

LECTURE CE CM* C. 3 C80K3 BASIC 

deux programmes d' Initiât ton progressive a la leoture 
rtULTIPUMLE 2 CN.C. 3 C80K3C80A3C80B3C7003 BASIC 


Excellent jeu pour apprendre (es mult tpi loat tons. 

PROBABILITES — C.3 C80K3 BASIC 

enseignement des probabilités très méthodique 

STATISTIQUES— C.3 C80K3 BASIC 

statistiques desoriptlves pour ôtasses de lyoees CBASIC 50003 

ME-SCIENTIFIQUE 


48 K 
8 K 
21 K 
4 K 


CALCUL EMPRUNT****..****— ********* 
sans commentaires. . . , fBASIC 50083 


M2-PR0FESS I ONNEL 

— ——— C.3 C80K3 


BASIC 


10 K 
04 K 


BASIC 

gestion de fichiers totalement paramétrable sur cassette. 

U. R. P. ———*——**— ——****— —CN. C. 3 C8083 BASIC 

Un utilitaire qui permettra d'optimiser les déplacements sur un secteur donne. 

M2-DIUERS 

DEMO H. R-, 1 t. J [8083 BASIC 3 K 

démontrât Ion saisissante des oapaoites graphiques du 80 B 

FANCY CLOCK C. 3 C80B3 BASIC 12 K 

me magnifique horloge en haute résolution SIS 

HORLOGE MONDIALE— CN.C.3C80B3 BASIC 64 K 

Une mappemonde aveb l'heure des principales capitales Cdlsquettes fc GRAPH. 13 


PETALES DE UIE* 


-C.3 C80B3 


BASIC 


20 K 


lève predlotlon aveo graphismes de votre avenir' sur 1 

PC- J EUX 

21 **—**—*——— C J . F . U. 3 Cl 251 3 


Célébré jeu de blaok-jaok 
24 HEURES*——*— 


Course automobt le. 
4.21* 


.CG.CASTELJAU3 C12513CÎ2113 

.C J. C. LAURENT! C12113 

votre 1211 j elle ne resl 
.-CL. ROBIN! CI 5003 


Jeu des allumettes. 
BANK— -*— — - 


— * CGUILBERT3 Cl 21 13 
>— CP. C0UET3 Cl 21 1 3 


BASIC 

2.5 K 

BASIC 

1.4 K 

BASIC 

1.5 K 

pas. 

BASIC 

» de oe jeu. 
BASIC 

4 K 
1.4 K 

BASIC 

1.4 K 

BASIC 

8 K 


Jeu de strategie financière. 

BIORYTHME ASTRAL- — —CARGO! Cl 5003 

DO. 1.3 Astrologie et biorythmes assootes. Très beau résultat sur Imprimante. 

BLACK-JACK— — — CNAU0IN3 C 1 21 1 3 

Jeu de cartes de réflexion appelé aussi 21. 

SONNE ROUTE— ———CE. MAETX3 Cl 251 3 
Course automobile graphique. 

900GLE— —.<>**— ———**—— -—C J . DUP0NT3 Cl 5003 

D4. 1.2 Jet/ de lettres. Il faut etre très fort en vocabulaire. 

BOURSE— ————————**— -C8UMER3 C12113 

Jeu de la bourse a 2 ou 3 joueurs. 

-CF. CHARLES 3 Cl 5003 


CHALLENGER* 


-CP.0EHLINGER3 CI 251 3 


BASIC 

1.5 K 

BASIC 

2.5 K 

BASIC 

2 K 

BASIC 

1 K 

BASIC 

2 K 

temps. 

BASIC+L.M. 

3 K 


Posez votre havette grâce aux Instruments de votre 1251 .Pas s I ornant & dtfftotl 

CHALLENGER—*——— CN. C. 3 C 1 251 3 BASIC 2. 0 K 

Uous etes aux commandes de la navette et devez atterrir aux Instruments. 

DONJONS V DRAGONS— —CP. CUNIN3 Cl 5003 BASIC 2 K 

' .010. 1 .4 Tout y est : les dragons} les monstres} l'epee ma 9 tque et l'aventure. 
DUEL.— **——————*— CB. PANTY3 Cl 5003 BASIC 2 K 

DI 4. 1.4 Duel oontre votre PC ou un ennemi ) votre écran affiche la zone de combat 
ESPERANCE DE UIE*— — CF.GUY0N3 Cl 5003 


-CD. SALT1ETTE3 C12113 


Jeu de fleahettes. Attent ton. .ne percez pas votre PC. 

.— *— CB.UEILLEUX3 Cl 5003 


ÎNUADERS* 


Jeu guerrier et spaofai. 

J ACK-P0T **—*——— 


-CP.B0DET3 Cl 211 3 
CT.GAY3 Cl 21 13 


JACK-POT*. 


JEU DU ROYAUME*, 
DI 3. 1 .3 Uous ev 
LABYRINTHE 


l, 0Q I QUE-LETTRES* 
D15.1.4 Joues 
uOTO— , 


MA-MÎND* 


-CJ.BERBD0LL3 Cl 5003 
s qui de filent sur vo 
-CB.UEILLEUX3 Cl 5003 
du royaume } a vous de 
— CF. CHARLES! C 1 5003 
t labyrinthe et tache 
-CB.PANTY3 Cl 5003 
pousse aveo votre tmprlm 
-CUAN H0EYLAN0T3 Cl 5003 
ohatns numéros en fonotl 
— CC. CARON! C12113 


Classique Master Ml nd. 
MEMOIRE—*—— 


-CJ.C. LAURENT! C12113 


NAUAL**— *—*——— L—— CP. B0PET3 C 1 21 1 3 
Uhe bataille navale contre votre 1211. 

NAUAL— — — — — * C&UMER3 C 1 21 1 3 

2 programmes de bataille navale. 


OIE* 


Jeu de l'oie. 
PENDU—— 


-CD. ROBERT! Cl 21 13 


-CJ.F.U. 3 Cl 251 3 


Mot s de 22 lettres maxt a trouver. 

PHRASE MYSTERE— * CG. CASTELNAU! C 1 251 3 C 121 13 

Phrase a deviner. 


«PUISSANCE 4* 

Célébré jeu de reflexion. 
ROBOT FOU* 


-CM.J0NHS0N3 C12513 
-CE. SANTARELLI 3 Cl 21 13 


BASIC 

2 K 

il de vie. 

BASIC 

t K 

BASIC 

2 K 

BASIC 

1.4 K 

BASIC 

1.5 K 

fournir. 

CCHUTTTJ 

BASIC 

4 K 

misez.. 

BASIC 

2 K 

d'etre très mal vu 

BASIC 

2 K 

BASIC 

2 K 

simple. 

BASIC 

4 K 

Jentes sort tes. 

BASIC 

1 . 5 K 

BASIC 

1.4 K 

noire. 

BASIC 

1.4 K 

BASIC 

1 K 

BASIC 

1.5 K 

BASIC 

2.5 K 

BASIC 

1.4 K 

BASIC 

2.3 K 

BASIC 

1.4 K 


Luttez contre l'abominable robot. 



ROLLAND GARROS-, 


SIMON- 


SINGE. 


T AROT-— — 

Décompta des points 
TENNIS, 


.... CF . CHARLES 3 C 15003 

BASIC 

2 K 

sur l'écran de votre 1500 qui joue 

contre vous. 


CD.DARJ03 Cl 21 13 

BASIC 

1 K 

i des nombres. Record a battre. 
..C J. C. LAURENT) C12113 
t d'une fste foraine. 




|S|i 

— CC.DANIEL3 C12513 

CP.BODET) Cl 21 13 




Tenue du score d'un match de tennis. 

PC-UTILITflIRES 


EDIT LU. 


-CF.B0ESSER3 H 25 13 


SASIC 


2.S K 


rjuj. i w »—— f — -— — 

Liste des variables utilisées dans un pr ogramme 

rpj , - _ CG. BARRE 3 Cl 21 î 3 

Tri de 70 données numériques maxl par ta méthode de SHELL. 

Type URITER CR.UIS0TTI3 Cl 500 3 

BU 1.2 Traitement de textes mult Idlreot tonne I en couleurs sur Cfciow 


PC-ENSE I GNEMENT 


APPROX- 


-C A. 80ISRAY0N3 Cl 211 3 


Fraction approxlmant un reet R. 

nfl qq CCHAPIN3 CI 21 13 

Ensemble de S programmes de gestion d'une ôtasse d'eleves. 

-CB.UEILLEUX3 Cl 5003 


rONU. CORDONNEES. 


Hlo, ; . o i ran* » v. » un « r — ■ 

CONVERSION PENTES— — —— CL. GQUILLARP3 Cl 5003 
Al. 1.4 Conversion de pentes de * en degres* mtnu 

rnppci ATTC NS i t-. . i —CA. MEYER) Cl 5003 

A7.1.1Î corrélations linéaires» exponentiel les » lo 9 arlthmtques» puissance. 

p. HYPERBOLIQUES CB.VEILLIÊUXi C15003 8ASIC 

qo. 1.3 Calcul de fonctions hyperboliques directes et Inverses. 
gftTT P i -, r B0XSRAY0N3 C 1 211 3 


Factorielles par STIRLING 
KQNC, 


«CPL0UÉ3 Cl 21 13 


Trace de forations mathématiques sur Imprimante. 

NOMBRES COMPLEXES——— C I . S. 3 Cl 5003 

A2.1.3 Operations dans 'C'. 4 operations de nombres oomF 

unrcyM n ... - rr -, T ^r-i f J .F.CHAPIN3 Cl 21 1 3 ^ 

Notes .«.me. « noaenm. utll«. aux pr*#»«»ur« pour leur-e ° " 

CSUnER) Cl 21 1 3 BASIC 1 ^ 




BASIC 


CEI 50. 

BASIC 

1 K 

BASIC 

1.5 K 

BASIC 

2 K 

nt rot at. demandes 

BASIC 

2 K 

BASIC 

2 K 

s» puissance 


BASIC 

2 K 

BASIC 

1.5 K 

BASIC 

1.4 K 

BASIC 

2 K 

t possibles. 

BASIC 

1.4 K 


POLYDIR- 
Olvtston de polynômes 
PPCM-GCO, 


Calcul du PGCD et du PPCM. 
PRECISCALC- 


«CVESIQN0T3 Cl 21 13 
-CUESIGN0T3 C12113 


BASIC 
BASIC 

BASIC 

Calcul des nombres premiers. Dàcrp 

PACCAR CA.BOISRAYON) C12113 BASIC 

Extraction de raoines oanree* et oub loues par vole arlttuaet loue. 
RACINES P0LÏW0T1E CC.CRflNCE) 05033 BAStC 


i — — — — . 

Operations arlthmet tques entre nombres de 44 chiffres maxi. 
ppEm c p CVESIGN0T3 C 1 21 13 


1.5 K 
1.5 K 


1 K 
1.5 K 


2 K 


Emploi des pronoms relat i fs en ans lais 
SIMPL I — — — CI.S3 C 1 21 1 3 


PC-SCIENTIFIQUE 


TIRS BALISTIQUES- - ..CN.C.3 Cl 500 3 BASIC 

A4.1.2 Simulation de trajectoire d'un projectile; Trace graphique. 

TRACE— CTAU8IEPE3 Cl 21 13 BASIC 

Calcul d'une distance reell* sur une pfanete. 

PC-PROFESS I ONNEL 


RELATIF — — — — — CÜ.F.CHAPIN3 C1211 3 BASIC 1 ** * 


U - BASIC 1.4 K 

Stmpl tfloation de fractions et reoherohes de fractions a part hombr ^* 

^ipcpnt CJ.F.CHAPIN3 C 1 21 1 3 . l '* N 

Verbes îrregullers ans lais. o^err 1 4 K 

tehSE — — CJ.F.CHAPIN3 C12113 BASIC 1.4 K 


Tests sur l'emploi des temps en Anglais. 

-.TSTTPIA N 01 e - rr-mDPINQUY3 C15003 BASIC * * 

A5.1.4 Résolution de triangles en fonction de données connues, ûraph. Imprimante 


BALISTI- 


-CFICHANT3 Cl 21 13 


DISTAN- 


Trace de courbes simultané. 
C ACT. SCIENTIF. — 


-CO.TAUSXE0E3 Cl 21 13 
-CJ.F.V3 Cl 251 3 


.CJ.F.V.D Cl 251 3 


Calcul de faotortelles en mult Ipreole Ion. C730 maxlï) 

INT. SIMPSON — —— — — — CJ.F.V3 Cl 251 3 

Calcul d' Intégrale definie. Formule de SIMPSON. 

T NTFGRATFr- r-r-T-r- , — , ——CP. JUN0T3 C 1 25 1 3 

Calcul d' Intégrale numérique en 12 pts. Formule GAUSS.. 

M/0 f rxj — — CJ.F. V. 3 Cl 251 3 

Calcul du max ou 0 d'une fonction de x. 

^TRT ^t -. — - CT . GAY3 C 121 1 3 

Calculs sur les matrices d'ordre n Cn <« 83. 

pqLY- — — - CE. MADEUF 3 C 1 21 1 3 

Calculs de polynômes. 

REGRESSIONS-, 


— CP.GUILBERT3 Cl 21 13 
Ajustement de points a un type de courbe. 

.CPOINSOT3 C 1 21 1 3 

Calcul d' Indice de diversité de SHANNON. 

STATISTIQUES » CG.Î1ULL0T3 C12113 . 

Pour un nombre Illimité de sections avec cumul mensuel de toutes les sections 


BASIC 

1.5 K 

soumise au vent- 

BASIC 

1.3 K 

BASIC 

2.3 K 

tng. 

BASIC 

2.3 K 

BASIC 

2.3 K 

BASIC 

2.3 K 

BASIC 

2.3 K 

BASIC 

1.3 K 

BASIC 

1.4 K 

BASIC 

1.3 K 

BASIC 

1.3 K 

BASIC 

1.3 K 

toutes les 

seat tons. 


2 K 
1.5 K 

2 K 


ACCIDENTS TRAVAIL— — COr.BlLBILLÉ 3 C 15003 BASIC 

Cl. 1.2 Coût de la consultation suivant bereme 'K' actualise ^ [V** 4 * 0 ' » » 

WIN *U— CJ.M.LER0Y3 C121U BASIC 1.3 K 

Aide a la navigation. Destine aux pilotes prive*. , • « 

CA 12 C MORTIER) C12113 BASTC 1.9 k 

Destine aux petits contribuables soumis au régime simplifie de la T. . . 

COMPTA ANALYTIQUE — (C.CHAMPESME) C15003 BASIC^ » * 

913.1.5 Utilisation pro. ou domestique» analyse par postes» histogrammes, eto,. 

FINANCE - CJ.F. V. 3 C12513 BASIC 1 K 

Calcul simultané de N. I.PU.PMT.FV. Tr 2 K 

POLARISATION AMP.— —CB. VELLIEUX) Cl 5003 BASIC ** 

BÎ5.1.3 Calcule la valeur des res. d'un amp 1 1 monte en emmeteieh oom»un.+ 

PT. MER C121 1 3 BASIC 1 . 5 K 

Calcul de coordonnées «maritimes. MCTr 2 * 

RENTABILITE INU -CB.UEILLÊUX) C15003 ?*f IC . f.* 

920.1.2 Caloul valeur actualisée suivant montant invest tssemen* I. rentaoi nte. 

_ - ricoai BASIC 4 *V 


SALLE DES DENTES „ CB. EDOUARD) Cl 388 J 

S6. 1.8 Pour suivre les ventes de chaque article» avec liste finale. 
SERUAC— — — — —CG. MULL0T3 C12113 BASIC 


4 K 
1.4 K 


TTJWniH— — » . . 

Gers te total des commandes sur 5 moi» d'un service achat. 
SOUPAPE— C G . COTILLON) C 1 211 3 


BASIC 


Tyurnr l,swwsw———»~ — — * ■ 

calcul de soupapes de surete pous liquides» 9 a* et vapeurs 
g ipqpft-r.,-, — — CG . RAMPAL3 C 1 21 1 3 


BASIC 1.4 K 

d. t arwîoatTwi "—'‘T. .ubposatolr. d» l« .«o..ootoU 

PC-DIUERS 


AGENDA. 


,-CI.S.) C12113 


BASIC 


1.4 K 


Planifier les 26 jours avenirs. — r 2 K 

- «TT 

9ALARM— — — IA, B0ISRAY0N3 C12113 WASÎC 1 K 


Balistique des armes rayess portatives. 

pftf jmig r - — CCnMPAQNE) Cl 21 13 

Gestion d'un compte bancaire. 25 operations enreg Istrables. 
rpl FHPTF P , ———CD. 0ARJ03 C 1 21 1 3 


BASIC 

BASIC 

BASIC 


1.4 K 

1 K 

2 K 


Edition du calendrier de l'annee suohaltee. OAeT r 

CALENDRIER PERP CR.LOUI) C 15003 . at _ 

911.1,4 Recherche d'une date» d'un Jour» d'un écart entre 2 **' K 

CHRONOMETRE .C J. DUPONT 3 Cl 500 3 BASIC 

Prog. complementaire a DATEUR. Donne les temps d'evenements lntft ^* ou * 

mpFPA* CA. B0ISRAY0N3 C1211 3 BASIC 1 A 


BASIC 

t. utrpnu— — ——— —»«•■ ■« w* w^. . . - — -- 

Calcul du coefficient balistique d'une balle de petit oal ‘ br% * 

DATEUR DUPONT) Cl 580 3 BASIC 

B4. 1.1 Impression de la date sur les programmes. 

FDITEXT CL.CLAVEL3 C125Î3 


BASIC 


Edition d'etîquettes sur Imprimante. 
EMPRUNT——. CJ.L.BRENAS) Cl 21 U 


2 K 

2.3 K 


1.3 K 


BASIC 

CHPPt »MT r .^. r _, LO . U . PKarmo j U4 UJ ww*v, 

Det«M«!r« l«* iuWîi»» »t thpr-tiU l« «« •««« »î 

FTllOES GRAPHIQUES». .CJ-R DELITS) Cl 380) BWIC i R 

97 . 1.2 Court.. oppIInum» aux -.ura. ohtffr**. a oapaot.r. paMMl-w»»- 

TNTERETS COMP OSE^ . -, r B. UE ILLEUX 3 Cl 500 3 BASIC * A 

317.1.3 Calculs en fonction des oaraoterlst lques d'un compos 

LETTRE EN RELIEF CP. B AUBE 3 Cl 5003 BASIC * * 

9^2. 1.2 Chaque lettre affichée a l 'écran est reproduite en 

i^SURE CJ.F.CHAPIN) C12113 BASIC J-** 

3progs.de conversions diverses. COI stands »ohange|temperature»ra^Meur|volumâ 

MUHiriPAI gc fL.QQUILLA803 Cl 500 3 BASIC 4 A 

B3. 1.0 gestion d'eleotions municipales et du nombre de sleges j* P®"»* ^ 

nont-pmiT c CS. ADAM) Cl 5003 BASIC < * 

914.1.4 Calcule la vitesse» !** Kms parcourus ou restants» °™°***£ 0r ' , \ ^ 

PIAN fB,UEILLEUX3 Cl 500 3 BASIC ** 

319.1.2 Caloul de la valeur future suivant le nombre L montant de» versemm . 

Q. I » —————— -CB.VALLY3 C 121 1 3 BASIC 

Test de votre Q. I. baric 2 K 

RAPPROCHEMENTS. ^ B * SIC 

" ” 1.4 K 


Pf^PROCHOTENTb— — — — -CR. GOU6ERT3 C 15803 > — 

92.1.2 Rapprochements bancaires avec solde reel d'un compte. 
qg rF n - CP. QEBUS3 C 1 21 1 3 BASIC 


u———— . » — — — ——— . . 

L'art et la maniéré de se reperer par rapport au soleil. 


devenez 





• Accéder à la bibliothèque de programmes. 

• Etre informé sur les diverses possibilités de votre machine. 

• Echanger vos programmes personnels contre ceux des autres membres du club. 

• Recevoir un bulletin périodique vous informant de la vie du club et de la société Sharp. 


A LIRE ATTENTIVEMEMT ! 


1. C'est votre première inscription au CLUB. Il vous suffit de nous envoyer le bulletin d'inscription ci-dessous lisiblement rempli et signé accom- 
pagné d'un chèque de 120 F. à l'ordre du « CLUB DES SHARPENTIERS . » - CCP 5485605 PARIS. Vous serez inscrit au CLUB pour 1 AN et 
bénéficierez de tous ses avantages. Vous recevrez également toutes les parutions du BULLETIN « SHARPENTIER « couvrant votre année d'inscription. 






2. Vous êtes inscrit au CLUB après le 1.06.83 et avez déjà payé 50 F. - Vous êtes inscrit GRATUITEMENT JUSQU' A FIN 84. - Si vous 
désirez recevoir les prochains bulletins du « SHARPENTIER » retournez nous le BULLETIN D'ABONNEMENT CI-DESSOUS, accompagné d'un chèque 
de 70 F. à I' ordre du « CLUB DES SHARPENTIERS ». 


3. Vous vous être inscrit au CLUB avant le 1.06.83. Vous devez vous réinscrire et vous abonner pour une nouvelle année (voir paragraphe 1). 


4. Vous êtes inscrit au CLUB et abonné au Bulletin auprès des éditions ADEPTE. Vous êtes dans ce cas MEMBRE DU CLUB et Abonné au 
« SHARPENTIERS » pour l'année 1984. 


Vous recevrez votre carte DEFINITIVE de MEMBRE DU CLUB et VOTRE NUMERO D'ADHERENT 1 MOIS après votre INSCRIPTION, ou au plus 


tard, FIN MAI 84 si vous êtes déjà inscrit. 


BULLETIN D'ABONNEMENT A LA REVUE « LE SHARPENTIER » 
A retourner à 

STE. SBM - CLUB DES SHARPENTIERS 
151-153 Av. Jean Jaurès 93307 AUBERVILLIERS CEDEX 

Nom Prénom 

Adresse 

Code postal Ville 

Matériel possédé 

Je vous joins un chèque de 70 F. 

N° Banque 

Date Signature 


n-8 



BULLETIN D'INSCRIPTION AU CLUB SHARPENTIER 
à retourner à 

SBM (Sharpentier) 151-153 Av. Jean-Jaurès 
93307 AUBERVILLIERS Cédex 

Nom Prénom 

Adresse 

Code postal Ville 

Profession Age 

Utilisation 

Commerçant chez qui la machine a été achetée : 

Type de machine 

N° de la machine 

Je vous joins un chèque de 120 F. 

N° Banque 

Date Signature 

n 5 8 



